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Er du den lykkelige ejer af en 
af Amstrads PC1512’ere, så 
har du sammen med din 
computer også fået Digital 
Researchs GEM system 
med i købet. GEM står for de 
engelske ord "Graphics En- 
vironment Manager” og be¬ 
tyder frit oversat "Grafisk 
styresystem", altså et styresy¬ 
stem, der udtrykker sig gra¬ 
fisk, og det er lige netop det, 
der er kernen i GEM syste¬ 
met. Digital Research’s 
GEM software giver nemlig 
en grafisk repræsentation af 
din PC's og dine program¬ 
mers faciliteter gennem bil¬ 
leder og menuer. Dette gør 
det muligt for dig at arbejde 
med din PC ved simpelthen 
blot at pege på et billede på 
skærmen og klikke på en af 
musens knapper. Denne ar¬ 
bejdsmetode er meget let at 
lære, og efter at du har lært 
at betjene et program vil 
kørslen af efterfølgende pro¬ 
grammer være endnu lette¬ 
re. 

Flere og flere program¬ 
mer skrives, så de gør brug af 
GEM's brugervenlige featu¬ 
res. Sådanne programmer 
kan identificeres ved at der 
som regel står "Arbejder 
med GEM software” eller 
"GEM-baseret” på dem. 

Efterhånden som disse 
GEM-baserede program¬ 
mer dukkede op på marke¬ 


det, så modtog vi her på Am- 
strad Bladets HOT-line flere 
og flere forespørgsler angå¬ 
ende disse programmer. Det 
var hovedsageligt fra folk, 
som var i tvivl om program¬ 
mernes funktion og anven¬ 
delighed. Det er disse op¬ 
ringninger, som har givet 
grundaget til denne artikel, 
idet vi på baggrund af det sti¬ 
gende antal forespørgsler 
bestemte os for at bringe en 
"komplet” oversigt over alle 
de GEM baserede program¬ 
mer der i skrivende stund 
findes i handlen. Oversigten 
vil desuden inkludere en 
kort beskrivelse af program¬ 
merne. 


GEM Draw Plus er et revolu¬ 
tionerende grafik program, 
som sætter dig i stand til al 
fremstille professionelle dia¬ 
grammer, logos eller illustra¬ 
tioner på din Amstrad PC, 
og det ud fra en stor palette, 
hvis du har en farvemonitor, 
(gråtoner på en monochro- 
me skærm). Du kan frem¬ 
stille billeder ud fra i forvejen 
bestemte figurer i menuen, 
eller du kan tegne "fri- 
hånds" med musen. Hvis du 
tegner fri-hånds så kan du 
vælge mellem mange for¬ 
skellige linie typer og tykkel¬ 
ser. På et hvilket som helst 
sted i din grafiske præstation 
kan du tilføje en tekst. Der er 



Man kan også lave en teg¬ 
ning i et vindue og derefter 
"paste" den over i et andet, 
som så kan "pastes" over i et 
tredje o.s.v. Ved denne form 
for "opsætning" råder man 
desuden over 20 forpro¬ 
grammerede "kunstværker. 

Når man så er færdig med 
de kunstneriske udfoldelser, 
kan man få værker udskre¬ 
vet på IBM kompatible prin- 
tere (incl. DMP3000). 

Draw Plus indeholder kort 
sagt alt, hvad man forventer 
af et godt tegneprogram, 
men det som gør program¬ 
met særligt attraktivt er.jo, at 
det er udstyret med GEM- 
brugerfladen, hvilket gør 
programmet særdeles nemt 
og fleksibelt at arbejde med. 
blandt andet en ting som gør 
programmet anvendelig til 
f.eks. firma logos på brevpa¬ 
pir eller lign. Rotering og 
spejlvending af objekter er 
heller ikke noget problem 
med Draw plus. 


GEM FIRST WORD 
PLUS — en tekst¬ 
behandler eller en 
Publisher? 

GEM 2st Word Plus indehol¬ 
der alle de funktioner, som 
man finder i avancerede 
tekstbehandlingsprogram¬ 
mer, men uden at der er gået 
på kompromis med bruger- 
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Først må vi lige fastslå en 
ting: Det er lang tid siden 
OCEAN havde sine kronede 
dage, hvilket ses på kvalite¬ 
ten af dette spil, som absolut 
IKKE kan findes blandt de 
50 bedste (det er godt nok 
de færreste, der findes der, 
men skidt). 

Nuvel, vi anmelder det al¬ 
ligevel. 

Forhistorien er som føl¬ 
ger: året er 1942, stedet 
Tyskland (det var eet stort i 
disse år, you know) og kri¬ 
gen har stået på i lidt over 2 
år efterhånden. Du blev fan¬ 
get af tyskerne (sløve pad¬ 
de), og befinder dig nu i en 
POW-lejr (Prisoner Of War) 
Da det nu er sådan, at sejren 
muligvis ikke lie er for døren, 
ser du dig nu nødsaget til at 
undslippe ad egen vej, hvil¬ 
ket ikke er nogen let opga¬ 
ve. Som der står i instruktio¬ 
nen, må flugten omhygge¬ 
ligt planlægges med megen 


tålmodighed, hvilket til sidst 
gerne skulle kulminere i en 
genial flugt med et stort re- 
sourceoverskud. Som jeg 
nævnte før, er en flugt ikke 
nem, og de gør det absolut 
ikke nemmere, at du er be¬ 
vogtet af nogle store, stygge 
vagter, men i den daglige gø¬ 
ren og laden, har du mulig¬ 
hed for at slippe væk uden at 
der bliver lagt mærke til det. 
Mens du nu har chancen, 
må du kortlægge lejren, og 
samlediverse ejendele, som 
du får brug for. når flugten 
skal iværksættes. Det kan 
være med, værktøj og så 
fremdeles. En sidste be¬ 
mærkning fra instruktionen 
må være, at der er mange, 
måder at undslippe på,! 
nogle sværere end andre, 
hver eneste ene dog farlig, 
og hver kræver de deres 
mand/kvinde og specielle 
udstyr. 


Selve lejren du befinder 
dig i, er et gammelt slot, på 
en ø i nordsøen, omringet af 
klipper på tre af siderne. 
Den eneste (officielle) ind¬ 
gang, er ad en smal vej, og 
forbi en vagtpost, der om¬ 
hyggeligt checker alle per¬ 
soner. Under lejren er der 
derimod alle mulige former 
for tunneler og klokker, som 
med en fakkel i hånden, 
kunne vise sig at blive nytti¬ 
ge 




finde på at gå rundt for at in¬ 
spicere sine vagter, og alene 
udfra den oplysning skal 
man være forsigtig, da han 
er den man mindst af alle øn¬ 
sker at støde ind i. 

De tyske vagter, derimod, 
er fuldt forudsigelige, da de 
jo er blevet sat til at bevogte 
diverse poster, og når de går 


I lejren findes der fire for¬ 
mer for liv (homo sapiens): 
En kommandant, de tyske 
vagter, et udvalg af andre 
fanger, og så dig. Hver har 
de deres funktioner (også 
dig), og den er først og frem¬ 
mest for kommandantens 
vedkommende, at placere 
vagtposter, hvor han synes 
der er brug for dem (det er 
ikke småting, han synes, når 
man kommer længere ind 
spillet). Han kan desuden 


deres runde, gør de det med 
nøjagtige mellemrum, hvil¬ 
ket gør det muligt, at smutte 
væk, mens de patruljerer, 
samtidig kan man smutte 
forbi en vagt, når han 
med ryggen til, men 
skal dog være hurtig, 
kan finde på at vende sig 
om, mens man løber, og så 
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er fanden løs. Medfangerne 
har været i lejren i meget 
lang tid. og deres mod på at 
‘flygte er faktisk brugt op. 
Dog kan man finde enkelte, 
der er villige til at distrahere 
vagterne, mens man laver 
narrestreger. Det er ved at 
analysere fangernes daglige 
foretagen (morgensamling. 


lægge disse” ting (samlinger 
osv.) uden at røre joystick’et, 
da du automatisk følger de 
andre. Hvis du nu derimod 
river i styrepinden, kan du 
komme uden for grænserne 
af det tilladelige, og så bliver 
dit moralflag lige pludselig 
rødt, hvilket betyder at du 
skal passe på. Nu kan du 
nemlig arresteres, hvilket 
betyder at du mister alle de 
ting du evt. har samlet op 
under svinkeærindet. Men 
du er i rød zone, kan du kort¬ 
lægge lejren i detaljer, men 
vær tilbage i gul zone inden 


måltider osv.) at man kan 
regne sig til, hvornår mulig¬ 
hederne for flugt er mest 
gunstige. Nu er der så kun 
en tilbage: dig! Du kan kon¬ 
trolleres af et joystick, eller 
med tastaturet, og følger 
(forudsat at dit moralflag ude 
i siden, er gult) den daglige 
gang sammen med de andre 
fanger. Således kan du kort¬ 


en samling, da alarmen så 
begynder at ringe for flugt. 
Du kan selvfølgelig også 
bare løbe fra vagterne når de 
opdager dig, og derved for¬ 
søge at komme ind i barak¬ 
ken igen, da det kan redde 
dig. 

Men hvad er nu dette mo¬ 
ralflag for et. Jo, ser du. Ude 
i skærmens venstre side står 
en flagstang med et flag. 
Dette flag kan enten være 
gult eller rødt, hvilket indike- 
’rer din (u)lovlige position. 
'Raget indikerer også din 
moral, således at du ingen 
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rygrad har, når det er i bund, 
så pas på med, hvor langt du 
bevæger dig langt væk fra 
de andre. Moralen får dog et 
skub opad hver gang du fin¬ 
det et eller andet (kan også 
være en uopdaget del af lej¬ 
ren). Når du ingen moral har 
tilbage, er du ligeså tam som 
alle de andre fanger, og må 
starte forfra. Nede i skærm¬ 
billedet findes der en klokke, 
som har to funktioner. Den 
ene er (når den ringer kort 
tid af gangen) at gøre op¬ 
mærksom på måltider, sam¬ 
linger o.a. Når det sker, vises 
en besked i bunden af skær¬ 
men. Den anden funktion er, 
når du er på flugt. Da vil den 
bimle konstant, og så er det 
med at få lettet de nedre 
anatomier. Points får du hver 
gang du samler ting op og 
opdager nye områder af lej¬ 
ren. 

Grafikken er over middel, 
men dog intet at råbe hurra 
for, da den er simpel m.h.t. til 
farvevalg (så godt som alt er 
ensfarvet, i hver sin farve). 
Derimod har den sin force 
ved, at den er overskuelig, 
og ikke pakket ind i en 
masse krimskrams, som det 
mange gange er tilfældet. 

Lyden er absolut ikke spil¬ 
lets stærke side, da den be¬ 
grænser sig til klokkens him¬ 
len. Det kan godt være rart 
med lidt ro, men er det her 
ikke at overdrive? 

Programmets (spillets) 
stærkeste side er handlin¬ 
gen. Ved' første øjekast kan 
den være lidt kedelig,, men 
når man kommer længere 
ind i spillet, viser det sig at 
være et spil af betydelige di¬ 
mensioner, der fængsler i så¬ 
dan grad, at spillet er absolut 
anbefalelsesværdigt. 

Dette spil er ikke normal 
OCEAN stil, hvilket man ty¬ 
deligt ser, da det normalt er 
fed grafik og lyd, men dårlig 
handling. Her er det lige om¬ 
vendt, men dog ikke noget 
der giver OCEAN et særligt 
stort skub op ad rangstien, 
sagt uden at få det til at lyde 
nedværdigende. En person¬ 
lig kommentar ville være, at 
de har forsøgt at lægge sig 
op ad US GOLD med et hæ¬ 
derligt resultat. 
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TIL: CPC 6128. 

Fra de efterhånden mange CPC 6128 ejere mod¬ 
tager vi jævnligt opfordringer på programmer, der 
udnytter den 64 KRAM bank, der findes i denne 
maskine, og skal jeg være helt ærlig, så tror jeg at 
det er første gang i Amstrad bladets historie at der 
bliver bragt et sådant program, men en gang skal 
jo være den første. Så lad mig straks slå fast, at 
dette program kun kan køres på en CPC 6128. 

Det nedenstående program, som vi har modta¬ 
get fra John Enslev, hører til i genren: seriøse pro¬ 
grammer; det er nemlig et utroligt gennemført og 


professionelt lagerstyringsprogram, som fylder 
hele 27 K i hukommelsen. Programmet tillader op 
til 1000 forskellige varenumre og rummer alle 
tænkelige editeringsmuligheder. Når varenum¬ 
rene indtastes sammen med de relevante oplys¬ 
ninger som: betegnelse, dimensioner, antal, pris 
og forventet forbrug pr. måned, så ordnes de auto¬ 
matisk i alfabetisk rækkefølge. Desuden er der 
mulighed for en samlet beregning af varelagerets 
værdi. Men ellers kræver programmet ingen 
større gennemgang, da det er suppleret med en 
god hjælpe-funktion. Vi siger mange tak til John 
Enslev og kvitterer med 750.00 skattefrie kroner. 


10 'Program "LAGERSTY" afslutt 

et d. 08.07.87 af John Enslev. 
20 KEY DEF 69,1,97,65,141 
30 KEY 141,"auto " 

40 'linie 10-20 definerer CONT 
ROL A til AUTO 
50 KEY DEF 62,1,99,67,142 
60 KEY 142,"cls"+CHR*(13)+"cat 
"+CHR$(13) 

70 'linie 40-50 de-finerer CONT 
ROL C til CAT 

80 KEY DEF 58,1,101,69,143 
90 KEY 143,"edit " 

100 'linie 70-80 definerer CON 

TROL E til EDIT 

110 KEY DEF 36,1,108,76,144 

120 KEY 144,"cis"+CHR*(13)+"1i 

st"+CHR*(13) 

130 'linie 100-110 definerer C 
ONTROL L til LIST 
140 KEY DEF 15,1,128,128,145 
150 KEY 145,"mode 0"+CHR*(13) 
160 KEY DEF 13,1,129,129,146 
170 KEY 146,"mode 1"+CHR*(13) 
180 KEY DEF 14,1,130,130,147 
190 KEY 147,"mode 2"+CHR$<13) 
200 KEY 131,"0,0"+CHR$(13) 

210 SYMBOL AFTER 91 

220 SYMBOL 123,62,122,216,220, 

248,218,222 

230 SYMBOL 124,124,206,222,254 
,246,230,124 

240 SYMBOL 125,56,0,124,198,25 
4,198,198 

250 SYMBOL 91,0,0,118,26,126,2 
16,110 

260 SYMBOL 92,0,0,118,204,214, 


102,220 

270 SYMBOL 93,48,0,120,12,124, 
204,118 

280 '************************* 
*********************** 

290 ' HUSK RUN BANKMAN FOR KOR 
SEL AF PROGRAMMET 
300 '************************* 
*********************** 

310 bank=l:xnr=0:p*="FRA":p=3: 
psk=2: øBANKOPEN, 72: r7.=0 
320 MODE 2 

330 LOCATE 28,2:PRINT "HOVEDME 
NU LAGERSTYRING." 

340 LOCATE 20,4:PRINT"Indtastn 
ing af nye data (1)" 

350 LOCATE 20,5:PRINT"List dat 
a <P/S> (2)" 

360 LOCATE 20,6:PRINT"SØge dat 
a <P/S> (3)" 

370 LOCATE 20,7:PRINT"Hent dat 
a fra diskette (4)" 

380 LOCATE 20,8:PRINT"Gem data 
pA diskette (5)" 

390 LOCATE 20,9:PRINT"Rette da 
ta <6>" 

400 LOCATE 20,10:PR1NI"SIette 
data <7> 

•I 

410 LOCATE 20,11:PRINT"Beregni 
ng af lagervfErdi <P/S> (8) 

II 

420 LOCATE 20,12:PRINT"Brugerv 
ejledning (9) 

II 

430 LOCATE 20,13:PRINT"S1etnin 










g af filér fra disketten <10 

> " 

440 LOCATE 20,14«PRINT"Printer 
FRA/TIL <11 

) " 

450 LOCATE 20,15«PRINT"Stop pr 
ogrammet <12 

) " 

460 LOCATE 4,24«PRINT "PRINTER 
s " p* 

470 LOCATE 30,24:PRINT"Antal p 
oster ="jxnr 

480 LOCATE 60,24«PRINT"Frie by 
tes"FRE <""> 

490 PLOT 0,10:DRAW 630,10:DRAW 
630,37:DRAW 0,37«DRAW 0,10 
500 PLOT 130,150:DRAW 470,150« 
DRAW 470,395:DRAW 130,395«DRAW 
130,150 

510 PLOT 130,360«DRAW 470,360 
520 IF bank=l THEN LOCATE 20,2 
1:PRINT"Husk før kørsel af pro 
grammet RUN ";:WRITE"BANKMAN" 

530 IF bank=l THEN LOCATE 20,2 
2: prinT"===== s *=== , ============= 

=====================":bank-0 

540 LOCATE 20,18:INPUT"Indtast 
dit valg <Tal 1 til 12) "jv* 
550 IF <<MID*(v*,l,l)="-") OR 
<MID*<v*,l,l)="+")) THEN MID*< 
v*,1,1)="0" 

560 IF <<MID*<v*,l,l>=","> OR 
<MID* <v*,1,1)=".")) THEN MID*( 
v*,1,1)="0" 

570 IF VAL<v*)<=0 OR VAL<v*)>l 
2 THEN LOCATE 54,18:PRINT SPAC 
E#(27):GOTO 540 ELSE v=VAL<v$) 
580 IF v=0 THEN 540 ELSE IF v= 
12 THEN 630 

590 IF <v=2 OR v=3 OR v=5 OR v 
=6 OR v=7 OR v=8) AND xnr=0 TH 
EN fejl$=" **** Endnu ingen da 
ta ****":GOSUB 1970:GOTO 320 
600 IF v=ll THEN LOCATE 54,18: 
PRINT SPACE*<2>:GOSUB 2410:GOT 
O 460 

610 CLS:ON v GOSUB 690,1490,40 
90.2490,2960,3410,5710,1610,60 
60,6790 

620 FOR pause=l TO 700:NEXT«GO 
TO 320 

630 CLS:PRINT"Programmet er af 
sluttet."t END 
640 ' 

650 ' 

660 ************************** 
*********** 

670 ' Subrutine indtastning af 
inddata 

680 '*************************, 
*********** 


690 øBANKOPEN, 72: r%=0 
700 WHILE NOT r*/.= <-l OR -2) 

710 LOCATE #3,1,1:PRINT #3,"RE 
TURN=HOVEDMENU" 

720 LOCATE #3,1,2«PRINT #3,TAB 
<64);CHR*<228)"STOP HER";CHR#< 
11):INPUT #3,"Indtast varebete 
gnelse "jvb* 

730 IF vb*="" THEN 1050 

740 IF LEN <vb$)>28 THEN GOSUB 

1880:GOTO 710 

750 FOR ch-1 TO LEN<vb*> 

760 IF MID$(vb$,ch,1)="0" THEN 
MID$<vb#,ch,l)="ø" 

770 IF MID* <vb*,ch, 1) = "flE" THEN 
MID$<vb*,ch,l)="æ" 

780 IF MID*(vb*,ch,l)="A" THEN 
MID$<vb*,ch,l)="a" 

790 NEXT ch 

800 vb=30-LEN<vb*> 

810 LOCATE #3,1,4:PRINT #3,TAB 
<54);CHR$<228)"STOP HER"5CHR*< 
11):INPUT #3,"Indtast dimensio 
n ";dm* 

820 IF dm$="" THEN 810 

830 IF LEN(dm$)>18 THEN GOSUB 

1880:GOTO 810 

840 FOR ch=l TO LEN<dm$) 

850 IF MID*(dm*,ch,l)="0" THEN 
MID* <dm*,ch,1)=" 0 " 

860 IF MID*<dm$,ch,1)="A" THEN 
MID*<dm»,ch,l)="å" 

870 IF MID* (dm*,ch , 1 )="(€" THEN 
MID*(dm*,ch,l)="æ" 

880 NEXT ch 

890 dm=20-LEN<dm*> 

900 LOCATE #3,1,6«PRINT #3,TAB 
<44);CHR*<228)"STOP HER"5CHR*< 
11):INPUT #3,"Indtast pris i k 
r. pr. stk. "jpr* 

910 IF pr$="" THEN 900 

920 IF LEN<pr*)>8 THEN GOSUB 1 

880:GOTO 900 

930 pr = 1O-LEN <pr*) 

940 LOCATE #3,1,8:PRINT #3,TAB 
<41);CHR* <228)"STOP HER";CHR$< 
11):INPUT #3,"Indtast stk. pA 
lager "|ls* 

950 IF 1s$—"" THEN 940 

960 IF LEN<ls*)>5 THEN GOSUB 1 

880:GOTO 940 

970 1s=7-LEN(ls$) 

980 LOCATE #3,1,10:PRINT #3,TA 
B<41)}CHR*<228)"STOP HER";CHR* 
<11):INPUT HT,"Indtast forbrug 
pr. mAncd i stk. ";fb# 


4 4 







990 IF f b*="" THEN 980 
1000 IF LEN(fb*)>5 THEN GOSUB 
18802 GOTO 980 
1010 fb=5-LEN (f b*) 

1020 te*=UPPER*(vb*+SPACE*(vb) 
+dm*+SPACE*(dm)+pr*+SPACE*(pr) 
+ 1s*+SPACE*(1 s)+fb*+SPACE*(fb) 
) 

1030 GOSUB 1080 

1040 WEND:fejl*="**** Ikke pla 
ds til -flere data ****":GOSUB 
1970 

1050 RETURN 
1060 ' 

1070 ' 

1080 '************************ 
*************** 

1090 * Subrutine BIN*R SøGNING 
+ Indsfft post 

1100 ************************* 
*************** 

1110 øBANK0PEN,72:ry.=0 
1120 IF xnr=0 THEN ss=0:G0T0 1 
330 
1130 
2 ) ) : 

1140 
1150 
»ss 
1160 
2-'<po-x 
1170 IF 
1180 ss 
1190 IF 
2"* (po—x 
1200 IF 
1210 
1220 
1230 
1240 
1250 
um*<te* 

1260 IF 


xs=0:po=INT(LOG(xnr)/LOG( 

s=(2^po)-l 

FOR i=0 TO po 

xs=xs+l: øBANKREAD, r'f , sum* 


IF 


: INT ( 


sum$>te$ THEN ssl = 

>> ELSE GOTO 1190 
ssl<l THEN ssl=l 
ss-ssl 

sum*<te* THEN ssl=INT( 
)) ELSE GOTO 1220 
ssl<l THEN ssl=l 
ss=ss+ssl 
IF ss<0 THEN ss=0 
IF ss>xnr—1 THEN ss=xnr—1 
NEXT i 

øBANKREAD, r 7., sum*, ss: IF s 
THEN ss=ss+l 
te$=sum$ THEN GOSUB 20 
90:GOTO 1270 ELSE 1330 
1270 LOCATE 1.42PRINT te*;TAB( 
75);(ss+1) 

1280 SOUND 1,800,60:LOCATE 20, 
15:PRINT"Eksisterer i forvejen 
. Tryk en tast":FOR fejl=l TO 
1500:NEXT 

1290 IF INKEY*< >"" THEN CLS:G0 

TO 1410 ELSE 1290 

1300 ******************** 

1310 ' INDSæT POST 
1320 ******************** 

1330 IF xnr=0 THEN 1370 
1340 FOR i=xnr TO ss STEP -1 
1350 øBANKREAD,r7.,sum*, i-l:øBA 
NKWRITE, r7 ., sum*, i 
1360 NEXT i 

1370 sum*=te*: øBANKWRITE ,r/i, su 


m*, ss 

1380 ************************* 
******************** 

1390 IF r"/.>— 1 THEN xnr=xnr+l 
1400 CLS 
1410 RETURN 
1420 ' 

1430 ' 

1440 ' 

1450 '************************ 
********** 

1460 ' Subrutine LISTning af d 
ata 

1470 ************************* 
********** 

1480 CLS:øBANK0PEN,72:r7.=0 

1490 GOSUB 2100 

1500 WINDOW #3,1,80,4,23 

1510 FOR x=l TO xnr 

1520 øBANKREAD,@rX,sum*,x—1 

1530 PRINT #p,sum$;TAB(75);(x) 

1540 IF (x—1) MOD 19=0 AND x>3 
AND p< >8 THEN GOSUB 2290:IF R 
=1 THEN R=0:GOTO 1590 
1550 NEXT 

1560 WINDOW #1,1,80,24,25 
1570 LOCATE #1,15,2:PRINT #1," 
Listning afsluttet Tryk en 
tast." 

1580 IF INKEY*< >"" THEN CLS #1 
:GOTO 1590 ELSE 1580 
1590 RETURN 
1600 ' 

1610 '************************ 
******* 

1620 'Subrutine lagervaerdi ve 
d list 

1630 '************************ 
******* 

1640 øBANK0PEN,72:r7.=0 
1650 sumvaerdi=0 
1660 IF p=8 THEN 1690 
1670 WINDOW #2,1,80,1,3:INK 3, 
9:PAPER #2,3:CLS #2 
1680 LOCATE #2,1,2:PEN #2,0 
1690 PRINT #psk,"VAREBETEGNELS 
E DIMENSION/V*G 

T PRIS LAGER VæRDI 

NR. " 

1700 PRINT #psk," 

KR. STK. KR." 

1710 IF p=8 THEN PRINT #8, 

1720 WINDOW #3,1,80,4,23:WINDO 
W #4,1,80,24,25 
1730 FOR x=0 TO xnr-1 
1740 ØBANKREAD,r7.,sum*,x 
1750 vaerdi=ROUND(VAL(MID*(sum 
*,51,8))*VAL(MID*(sum*,61,5)), 
1) 



1760 sumvaerdi=sumvaerdi+vaerd 
i 

1770 PRINT #p,MID$(sum*,1,65); 
TAB(68) 

1780 PRINT #p,USING "######";v 

aerdi;:PRINT #p,TAB(75);x + 1 

1790 IF x MOD(19)=0 AND x>3 AN 

D p< >8 THEN GOSLIB 2290s IF R=1 

THEN R=0: GOTO 1860 

1800 NEXT 

1810 PRINT #p," 

Total 

vaerdi af lager =";TAB(65);US 
ING"#########";ROUND(sumvaerdi 
);SPRINT #p, 

SPC(2);"KR." 

1820 IF p=3 AND xnr<20 THEN PL 
OT 310,ROUND((20.7—x)*16.05)s D 
RAW 630,ROUND((20.7-x>*16.05): 
PLOT 310,R0UND<(20.7-x)*16.05+ 
3)sDRAW 630, 

ROUND((20.7-x)*16.05+3) 

1830 IF p=3 AND xnr>=20 THEN P 

LOT 310,30:DRAW 630,30:PLOT 31 

0,25:DRAW 630,25 

1840 LOCATE #4,28,2:PRINT #4," 

Tryk en tast for HOVEDMENU" 

1850 IF INKEYSO"" THEN 1860 E 

LSE 1850 

1860 RETURN 

1870 ' 

1880 ************************* 
** 

1890 ' SUBRUTINE FEJL I INDDAT 
A 

1900 ************************* 
** 

1910 WINDOW #1,1,80,24,25 
1920 LOCATE #1,5,25:PRINT #1," 
De indtastede data mA ikke vEr 
e lEngere end til ";CHR$<228) 

" Tryk en tast" 

1930 IF INKEY*<>"" THEN CLS #1 
:GOTO 1940 ELSE 1930 
1940 RETURN 
1950 ' 

1960 ' 

1970 ************************* 
****************************** 
*************** 

1980 ' Subrutine fejl ingen da 
ta + ikke mere plads + data ik 
ke fundet M.V 

1990 ************************* 
****************************** 
*************** 

2000 CLS:LOCATE 20,12:PRINT fe 
jl* 

2010 SOUND 1,800,60 

2020 FOR fejl=1 TO 1500:NEXT 

2030 RETURN 


2040 ' 

2050 ' 

2060 '************************ 
******* 

2070 ' Subrutine overskrift SO 
G+LIST 

2080 ************************* 
******* 

2090 CLS 

2100 IF p=8 THEN 2130 
2110 WINDOW #2,1,80,1,3:INK 3, 
9:PAPER #2,3:CLS #2 
2120 LOCATE #2,1,2:PEN #2,0 
2130 PRINT #psk,"VAREBETEGNELS 
E DIMENSION/V*G 

T PRIS LAGER FORB. 

NR. " 

2140 PRINT #psk," 


KR. 


STK. 


PR.MD. 


2150 IF p=8 THEN PRINT #p, 

2160 RETURN 
2170 ' 

2180 ' 

2190 '************************ 
******* 

2200 ' Subrutine overskrift RE 
T+SLET 

2210 ’************************ 
******* 

2220 WINDOW #2,1,80,1,3:INK 3, 
9:PAPER #2,3:CLS #2 
2230 LOCATE #2,1,2:PEN #2,0 
2240 PRINT #2,"VAREBETEGNELSE 
DIMENSION/V*GT 
PRIS LAGER FORB. 

NR. " 

2250 PRINT #2," 


STK. 


PR.MD." 


KR. 

2260 RETURN 
2270 ' 

2280 ' 

2290 '************************ 
******************* 

2300 ' Subrutine for max. 20 p 
oster ved listning 
2310 '************************ 
******************* 

2320 WINDOW #1,1,80,24,25 
2330 LOCATE #1,15,2:PRINT #1," 
Tryk pA tasten (F) for flere ( 
RETURN=MENU >" 

2340 a*=INKEY# 

2350 IF a*="" THEN 2340 

2360 IF a*="F" OR a*="f" THEN 

CLS #1:GOTO 2380 

2370 IF INKEY(18)*0 OR INKEY(1 

8)=32 THEN R=1:G0T0 2380 ELSE 

2340 


i 





2380 RETURN 
2390 ' 

2400 ' 

2410 '************************ 
**** 

2420 ' Subrutine printer fra/t 
il 

2430 '************************ 
*** 

2440 IF p*="FRA" AND p=3 THEN 
p*="TIL":p=8:psk=8:GOTO 2460 
2450 IF p*="TIL" AND p=8 THEN 
p*="FRA":p=3: psk = 2 
2460 RETURN 
2470 ' 

2480 ' 

2490 '************************ 
************ 

2500 ' Subrutine hent data -fra 
diskette 

2510 '************************ 
************ 

2520 CLS:LOCATE 5,12:PRINT"Ons 
kes (S) tandard-f ilen eller <N)a 
vngiven -fil indlffst -fra disket 
te (S/N) ?" 

2530 a*=INKEYS 

2540 IF a*="" THEN 2530 

2550 IF a*="S" OR a*="s" THEN 

2570 

2560 IF a#="N" DR al»"n" THEN 
2660 ELSE 2530 



2570 OPENIN "sbankfi 1" 

2580 øBANKOPEN,72:rX=0 
2590 INPUT #9, xnr 
2600 FOR x=0 TO xnr-1 
2610 INPUT #9,sum« 

2620 øBANKWRITE,@r7.,sum*,x 
2630 NEXT 
2640 CLOSEIN 
2650 RETURN 

2660 øUSER,15:kontrol=l 
2670 CLS:CAT 

2680 LOCATE 1,23:PRINT TAB(60) 
}CHR*(228)|"STOP HER"*CHR*(11) 

; TAB (5) : INPUT" Indtast navn -for 
data-filen som skal indlffses " 
; dni 

2690 IF dn*="" THEN 2680 
2700 IF LEN(dn*)>8 THEN 60SUB 
1880:GOTO 2680 
2710 ON ERROR GOTO 6920 
2720 OPENIN dn* 

2730 ON ERROR GOTO O 
2740 IF kontrol<>1 THEN 2660 
2750 øBANKOPEN,72: r7.=0 
2760 INPUT #9,adko* 

2770 IF adko*<>"0" THEN 2780 E 
LSE 2860 

2780 FOR adko=l TO 4 
2790 CLS:LOCATE 5,12:PRINT"Fi1 
en ";dn# 5 " er gemt med adgangs 
kode. Indtast denne adgangskod 
e + RETURN" 

2800 LOCATE 5,13:PRINT"(Max. 4 
. -forsøg) " 

2810 PRINT CHR$(21) 

INPUT adgk$ 

PRINT CHR$(6> 

IF adgk*=adko$ THEN 2860 
■fejl$="**** Forkert adgan 
prøv igen ****":GOSUB 1 


2820 
2830 
2840 
ELSE 
gskode 
970 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 * 

2950 ' 

2960 ************************* 
************ 

2970 * Subrutine gem data paa 
diskette 

2980 '************************ 
************ 

2990 CLS:LOCATE 5,12:PRINT"Ons 
kes data-filen gemt som (S) tand 


NEXT adko:GOTO 2910 

INPUT #9,xnr 

FOR x=0 TO xnr—1 

INPUT #9,sum* 

øBANKWR I TE, @r7., sum* , x 

NEXT 

CLOSEIN 

øUSER,0 

RETURN 
























ard-filen i 

(S/N) ?" 


iller (N)avngiven fil 


=INKEY* 

a*="" THEN 3000 
a*="S" OR a*="s" 


THEN 


IF a*="N" OR a*»"n" THEN 
ELSE 3000 
OPENOUT "sbankfil" 
øBANKOPEN, 72 s r7.=0 
WRITE #9,xnr 
FOR x=0 TO xnr 
øBANKREAD, Ør - /., sum*, x 
WRITE #9,sum* 

NEXT 

CLOSEOUT 

RETURN 


3000 
3010 
3020 
3040 
3030 
3140 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 ' 

3140 CLSs LOCATE 10,5:PRINT TAB 
(53)j CHR*(228){"STOP HER";CHR* 
(11):INPUT"Indtast navn for da 
tafilen som skal gemmes" 5 dn* 
3150 IF dn*="" THEN 3140 
3160 IF LEN(dn *)>8 THEN GOSUB 
1880:GOTO 3140 
3170 øUSER,15 
3180 øBANKOPEN,72: r*/.=0 
3190 CLS:LOCATE 15,12:PRINT"On 
skes filen ";dn*;" gemt med ad 
gangskode (J/N)" 

3200 a*=UPPER*(INKEY*) 

IF a*="" THEN 3200 
IF a*="N" THEN adko*="0": 
3290 

IF a*="J" THEN 3240 ELSE 


CLS:LOCATE 5,12:PRINT"Ind 
adgangskode pA 4 karakter 
RETURN (KUN BOGSTAVER OG 


3210 
3220 
GOTO 
3230 
3200 
3240 
tast 
er + 

TAL) " 

3250 PRINT CHR*(21) 

3260 INPUT adko* 

3270 PRINT CHR*( 6 ) 

3280 IF LEN(adko*)< >4 THEN fej 
1 *="**** Indtastningsfejl hus 
k 4 karakterer ***•*": GOSUB 197 
O:GOTO 3240 
3290 OPENOUT dn* 

WRITE #9,adko* 

WRITE #9,xnr 
FOR x=0 TO xnr 
øBANKREAD, Ør - /., sum*, x 
WRITE #9,sum* 

NEXT 

CLOSEOUT 
øUSER,O 
RETURN 


3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 


’ *■»*****#*##***■»********■» 
' Subrutine rette data 
' ***■***•****•»***#*###**# 


3440 øBANKOPEN,72: r’/.-0 
3450 CLS:WINDOW #4,1,80,1,23 
3460 LOCATE #4,35,1:PRINT #4," 
RETTEMENU" 

3470 LOCATE #4,35,2:PRINT #4,S 
TRING*(9,"#"} 

3480 LOCATE #4,20, 6 :PRINT #4," 
Rette data for et bestemt nr. 
(R) " 

3490 LOCATE #4,20,8:PRINT #4," 
Liste alle data (P/S) 

(L) " 

3500 LOCATE #4,20,15:PRINT #4, 
"Indtast dit valg (RETURN=HOV 
EDMENU) ?" 

3510 a*=UPPER*(INKEY*) 

3520 IF a*="" THEN 3510 
3530 IF a*="R" THEN 3560 
3540 IF a*="L" THEN GOSUB 1450 
:GOTO 3410 

3550 IF INKEY (18) 0-1 THEN 406 
O ELSE 3510 

3560 CLS:LOCATE 12,14:INPUT"In 
dtast nr. som skal rettes (RET 
URN=RETTEMENU) ";nr* 

3570 IF nr*="" THEN 3410 
3580 IF ((MID*(nr*,l,1)="-") O 
R (MID*(nr*,l,l)="+">) THEN MI 
D*(nr*,1,1)*"0" 

3590 IF ((MID*(nr*,1,1)=",") O 
R (MID*(nr*,1,1)=".")) THEN MI 
D*(nr*,1,1)="0" 

3600 nr=VAL(nr*) 

3610 IF nr<=0 OR nr>xnr THEN f 
ejl*="**** Ingen data for dett 
• nr. ****":GOSUB 1970:GOTO 35 
60 

3620 CLS:GOSUB 2220 
3630 WINDOW #3,1,80,4,26 
3640 øBANKREAD,Ør7.,sum*,nr-l: P 
RINT #3,sum*;TAB(75);(nr) 

3650 slet*=sum* 

3660 FOR rx=nr TO xnr 

3670 øBANKREAD,ØrX,sum*,rx : øBA 

NK WRITE, Ør sum*, rx — 1 

3680 NEXT rx:xnr=xnr—1 

3690 LOCATE #3,1,12:PRINT #3,T 

AB( 68 ) 5 CHR*(228)"STOP HER"}CHR 

*(11):INPUT #3,"Ny varebetegne 

1 se (RETURN=UAENDRET)"}vb* 

3700 IF vb*«"" THEN 3710 ELSE 

3720 

3710 FOR c«1 TO 28:LOCATE #3,c 
,1:vb*=COPYCHR*(#3):LOCATE #3, 
c+39,12:PRINT #3,vb*:NEXT:vb*= 
MID*(slet*,1,28) 

3720 IF LEN(vb*)>28 THEN GOSUB 
1880:GOTO 3690 
3730 FOR ch=l TO LEN(vb*) 

3740 IF MID*(vb*,ch,1)="0" THE 
N MID*(vb*,ch,1)«"ø" 

3750 IF MID* (vb* ,ch , 1) «"(E" THE 
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N MID*(vb*,ch,l)="a" 

3760 IF MID*(vb*,ch,l)="A" THE 
N MID*(vb*,ch,l)="å" 

3770 NEXT ch 
3780 vb=30-LEN(vb*) 

3790 LOCATE #3,1,14:PRINT #3,T 
AB(58);CHR*(228)"STOP HER";CHR 
*(11):INPUT #3,"Ny dimension/v 
aegt (RETURN=UAENDRET)";dm* 
3800 IF dm*="" THEN 3810 ELSE 
3820 

3810 FOR c=l TO 18:LOCATE #3,c 
+30,1:dm*=COPYCHR*(#3):LOCATE 
#3,c+39,14:PRINT #3,dm*:NEXT:d 
m*=MID*(si et*,31,18) 

3820 IF LEN(dm*)>18 THEN GOSUB 
1880:BOTO 3790 
3830 FOR ch=l TO LEN(dm*) 

3840 IF li ID* (dm*, ch , 1) = "0" THE 
N MID*(dm*,ch,l)="ø" 

3850 IF MID*(dm*,ch,1)="Å" THE 
N MID*(dm*,ch,1)="å" 

3860 IF MID* (dm* ,ch , 1) = "fE" THE 
N MID*(dm*,ch,1)■"«" 

3870 NEXT ch 
3880 dm=20-LEN(dm*) 

3890 LOCATE #3,1,16:PRINT #3,T 
AB(48);CHR*(228)"STOP HER";CHR 
*(11):INPUT #3,"Ny pris kr./st 
k. (RETURN-UAENDRET)"}pr* 
3900 IF pr*="" THEN 3910 ELSE 
3920 

3910 FOR C=1 TO 8:L0CATE #3,c + 
50,1:pr*=COPYCHR*(#3):LOCATE # 
3,c+39,16:PRINT #3,pr*:NEXT:pr 
*=MID*(si et*,51,8) 

3920 IF LEN(pr*)>8 THEN GOSUB 
1880:GOTO 3890 
3930 pr=10—LEN(pr*) 

3940 LOCATE #3,1,18:PRINT #3,T 
AB(45);CHR*(228)"STOP HER"}CHR 
*(11):INPUT #3,"Ny lager stk. 

(RETURN=UAENDRET)"; 1 s* 
3950 IF 1s*="" THEN 3960 ELSE 
3970 

3960 FOR c=l TO 5:LOCATE #3,c + 
60,1:1s*=COPYCHR*(#3):LOCATE # 
3,c+39,18:PRINT #3,1 s*:NEXT:1 s 
*=MID*(si et*,61,5) 

3970 IF LEN(ls*)>5 THEN GOSUB 
1880:GOTO 3940 
3980 1s=7-LEN(1 s*) 

3990 LOCATE #3,1,20:PRINT #3,T 
AB(45)}CHR*(228)"STOP HER"}CHR 
*(11): INPUT #3, "Ny -forbrug/md. 

stk. (RETURN-UAENDRET)"} i b* 
4000 IF fb*="" THEN 4010 ELSE 
4020 

4010 FOR c—1 TO 5:LOCATE #3,c+ 
67,1:fb*-COPYCHR*(#3):LOCATE # 
3, c+39,20: PRINT #3,-fb*: NEXT: i b 


*=MID*(si et*,68,5) 

4020 IF LEN(fb*)>5 THEN GOSUB 
1880:GOTO 3990 
4030 fb=5-LEN(fb*) 

4040 te*=UPPER*(vb*+SPACE*(vb) 
+dm*+SPACE*(dm)+pr*+SPACE*(pr) 
+ls*+SPACE* (ls) +-f b*+SPACE* (fb> 
) 

4050 GOSUB 1080:GOTO 3560 
4060 RETURN 
4070 ' 

4080 ' 

4090 '******************* 

4100 ' Subrutine sOgning 
4110 '#****************** 

4120 CLS: øBANKOPEN, 72: r7.=0i y=0 
:xx-l: -fundet-O: WINDOW #4,1,80, 
4,23 

4130 LOCATE #4,35,1:PRINT #4," 
SOGEMENU" 

4140 LOCATE #4,35,2:PRINT #4,S 
TRING*(8,"*") 

4150 LOCATE #4,20,6:PRINT #4," 
Søge Varebetegnelse 

(V) " 

4160 LOCATE #4,20,8:PRINT #4," 
Søge Dimension 
(D> " 

4170 LOCATE #4,20,10:PRINT #4, 
"Søge Pris pr. stk. i kr. 

(P) " 

4180 LOCATE #4,20,12:PRINT #4, 
"Søge stk. paa lager 
(L) " 

4190 LOCATE #4,20,14:PRINT #4, 
"Søge Forbrug pr. maaned 
(F) " 

4200 LOCATE #4,20,20:PRINT #4, 
"Indtast dit valg (RETURN=HOVE 
DMENU)" 

4210 a*=UPPER*(INKEY*) 

4220 IF a*="V" THEN 4280 
THEN 4440 
THEN 4610 
THEN 4960 
THEN 5320 


4230 IF a*="D" 

4240 IF a*="P" 

4250 IF a*="L" 

4260 IF a*="F" 

4270 IF INKEY(18)=0 OR INKEY(1 

8)=32 THEN 5520 ELSE 4210 
4280 CLS:LOCATE 12,14:INPUT"In 
dtast varebetegnelse -for søgni 
ngen"}vs* 

4290 IF vs*="" THEN 4280 
4300 vs*=UPPER*(vs*) 

4310 øBANKFIND,@r‘/.,vs* ,y ,xnr 
4320 IF r"/.=-2 AND fundetOl TH 
EN fejl*="**** Data ikke -funde 
t ****":GOSUB 1970:GOTO 4090 
4330 IF r7.<-l AND -fundet = l THE 
N 5490 

4340 IF xx<2 THEN CLS:GOSUB 20 
60 



4350 IF p=8 THEN 4380 

4360 WINDOW #3,1,80,4,23 

4370 IF (xx-2) MOD 19=0 AND xx 

>3 THEN GOSUB 2290 

4380 x=r*/.i ØBANKREAD, @r%, sum*, x 

iLOCATE #3,1,xxi PRINT #p,sum*; 

TAB(75);(x + 1) 

4390 xx»xx+l:fundet=l 
4400 IF rX>-l THEN y=rX+l:GOTO 
4310 

4410 GOTO 5490 
4420 ' 

4430 * 

4440 CLS:LOCATE 12,14iINPUT"In 
dtast dimension for søgningen" 
; dm* 

4450 IF dm*="" THEN 4440 
4460 dm*=UPPER*(dm*) 

4470 FOR fusk=l TO 30:dm*=CHR* 
(O)+dm*:NEXT 

4480 øBANKFIND,ØrX,dm* ,y,xnr 
4490 IF r - /.=-2 AND fundetOl TH 
EN fejl*="**»* Data ikke funde 
t #***":GOSUB 1970:GOTO 4090 
4500 IF r%<-l AND fundet=l THE 
N 5490 

4510 IF xx<2 THEN CLS:GOSUB 20 
60 

4520 IF p=B THEN 4550 

4530 WINDOW #3,1,80,4,23 

4540 IF (xx-2) MOD 19=0 AND xx 

>3 THEN GOSUB 2290 

4550 x =r'/.: ØBANKREAD, Ør7., sum* , x 

sLOCATE #3,1,xx:PRINT #p,sum*; 

TAB(75);(x+l> 

4560 xx=xx+l:fundet=l 
4570 IF r7.>-l THEN y=r‘/.+ l: GOTO 
4480 

4580 GOTO 5490 
4590 * 

4600 ' 

4610 CLS:LOCATE 12,18:PRINT"Et 
af følgende 3. tegn kan bruge 
s før indtastning af tallet" 
4620 LOCATE 12,19:PRINT"< elle 
r > eller = (eksempel >56 
.7) " 

4630 LOCATE 12,14:INPUT"Indtas 
t pris for søgningen";pr* 

4640 IF pr*="" THEN 4610 
4650 pr*=UPPER*(pr*) 

4660 qs*=LEFT*(pr*,1):IF qs*=" 
<" OR qs*="=" OR qs*=">" THEN 
4800 

4670 FOR fusk=l TO 50:pr*=CHR* 
(0)+pr*:NE*T 

4680 øBANKFIND,©r%,pr*,y,xnr 
4690 IF rX—2 AND fundetOl TH 
EN fejl*="***# Data ikke funde 
t ****":GOSUB 1970:GOTO 4090 
4700 IF rX<-l AND fundet=l THE 


N 5490 
4710 IF 
60 

4720 
4730 
4740 


xx<2 THEN CLS:GOSUB 20 


IF p=8 THEN 4750 
WINDOW #3,1,80,4,23 
IF (xx-2) MOD 19=0 AND xx 
>3 THEN GOSUB 2290 
4750 x =rX: ØBANKREAD, Ør 7., sum* , x 
:LOCATE #3,1,xx:PRINT #p,sum*; 
TAB(75);(x+1) 

4760 xx=xx+l:fundet=l 
4770 IF rX>-l THEN y=r7.+ l:G0T0 
4680 

4780 GOTO 5490 
4790 ' 

4800 WINDOW #3,1,80,4,23 
4810 FOR x=0 TO xnr-1 
4820 ØBANKREAD,@rX,sum*,x 
4830 IF qs*=">" THEN 4850 ELSE 
IF qs*="=" THEN 4860 
4840 IF VAL(MID*(sum*,51,8))<V 
AL(MID*(pr*,2,8)) THEN 4870 EL 
SE 4910 

4850 IF VAL(MID*(sum*,51,8))>V 
AL(MID*(pr*,2,8)) THEN 4870 EL 
SE 4910 

4860 IF VAL(MID*(sum*,51,8))=V 
AL(MID*(pr*,2,8)) THEN 4870 EL 
SE 4910 
4870 y=y+l 

4880 IF y=l THEN GOSUB 2060 
4890 IF ’ (y-2) MOD 19=0 AND y>2 
THEN GOSUB 2290:IF R=1 THEN R 
=0:GOTO 4120 

4900 LOCATE #3,l,y:PRINT #p,su 
m*;TAB(75)j(x+1) 

4910 NEXT x 

4920 IF y=0 THEN fejl*="***» D 
ata ikke fundet ****":GOSUB 19 
70:GOTO 4120 
4930 GOTO 5490 
4940 ' 

4950 ' 

4960 CLS:LOCATE 
af følgende 3. 
s før indtastning af tallet" 
4970 LOCATE 12,19:PRINT"< elle 
r > eller = (eksempel >17 
) " 

4980 LOCATE 12,14:INPUT"Indtas 
t stk. paa lager som skal søge 
s";si * 

4990 IF si*="" THEN 4980 
5000 sl*=UPPER*(si*) 

5010 qs*=LEFT*(si*,1):IF qs*=" 
<" OR qs*="=" OR qs*=">" THEN 
5160 

5020 FOR fusk=l TO 60:sl*=CHR* 
(O)+sl*:NEXT 

5030 øBANKFIND,Ør’/.,si*,y,xnr 
5040 IF r’/.=-2 AND fundetOl TH 


12,18:PRINT"Et 
tegn kan bruge 


17 



EN fejl«="**** Data ikke funde 
t ****'• iGOSUB 1970: BOTO 4090 
5050 IF rX<-l AND fundet=l THE 
N 5490 

5060 IF xx<2 THEN CLSsBOSUB 20 
60 

5070 IF p=8 THEN 5100 

5080 WINDOW #3,1,80,4,23 

5090 IF <xx-2> MOD 19-0 AND xx 

>3 THEN BOSUB 2290 

5100 x =r X: øBANKREAD, Ør 7., sum« , x 

sLOCATE #3,1,xx:PRINT #p,sum«; 

TAB(75); (x + 1) 

5110 xx=xx+l:fundet=l 
5120 IF r7.>-l THEN y-rX+liGOTO 
5030 

5130 SOTO 5490 
5140 ' 

5150 ' 

5160 WIND0W#3,1,80,4,23 
5170 FOR x=0 TO xnr-1 
5180 øBANKREAD,Ør'/.,sum«,x 
5190 IF qs«=">" THEN 5210 ELSE 
IF q S «="=" THEN 5220 
5200 IF VAL (MID« (sum« ,61 ,5) XV 
AL(MID«(si«,2,5)) THEN 5230 EL 
SE 5270 

5210 IF VAL <MID«(sum*,61,5))>V 
AL(MID*(sl*,2,5)) THEN 5230 EL 
SE 5270 

5220 IF VAL(MID*(sum«,61,5)) »V 
AL(MID*(si*,2,5)) THEN 5230 EL 
SE 5270 
5230 y=y+l 

5240 IF y=l THEN BOSUB 2060 
5250 IF <y-2) MOD 19=0 AND y>2 
THEN BOSUB 2290:IF R=1 THEN R 
=0:BOTO 4120 

5260 LOCATE #3,1,y:PRINT#p,sum 
*;TAB(75);(x+1) 

5270 NEXT x 

5280 IF y=0 THEN fejl«="**** D 
ata ikke -fundet #***": BOSUB 19 
70:BOTO 4120 
5290 BOTO 5490 
5300 ' 

5310 ' 

5320 CLS:LOCATE 12,18:PRINT"Et 
af følgende 3. tegn kan bruge 
s før indtastning af tallet' 1 
5330 LOCATE 12,19:PRINT"< elle 
r > eller = (eksempel =9) 

II 

5340 LOCATE 12,14:INPUT"Indtas 
t forbug pr. maaned som skal s 
Øges";fb* 

5350 IF fb*-"" THEN 5320 
5360 fb*=UPPER*Cfb*> 

5370 qs*=LEFT«(fb*,1>iIF qs*=" 
<" OR qs*="=" OR qs*=">" THEN 
5550 


5380 FOR fusk=l TO 67:fb*-CHR* 
(O)+fb«:NEXT 

5390 øBANKFIND,@rX,fb*,y,xnr 
5400 IF rX—2 AND fundetOl TH 
EN fejl«-"*#** Data ikke funde 
t ****"!BOSUB 1970:SOTO 4090 
5410 IF rX<-1 AND fundet=l THE 
N 5490 

5420 IF xx<2 THEN CLS:BOSUB 20 
60 

5430 IF p=8 THEN 5460 

5440 WINDOW #3,1,80,4,23 

5450 IF (xx-2) MOD 19=0 AND xx 

>3 THEN BOSUB 2290 

5460 x =rX: øBANKREAD,Ør7.,sum«,x 

:LOCATE #3,1,xx:PRINT #p,sum«; 

TAB(75);(x+1) 

5470 xx-xx+l:fundet=l 
5480 IF r7.>- 1 THEN y=rX+l:BOTO 
5390 

5490 LOCATE 20,25:PRINT"Tryk p 
aa tasten (S) for (S)Ogemenu" 
5500 a*=UPPER«(INKEY«) 

5510 IF a*< >"S" THEN 5500 ELSE 
4090 

5520 RETURN 
5530 * 

5540 * 

5550 WINDOW#3,1,80,4,23 
5560 FOR x-0 TO xnr-1 
5570 øBANKREAD,ØrX,sum«,x 
5580 IF qs*=">" THEN 5600 ELSE 
IF qs*="=" THEN 5610 
5590 IF VAL (MID* (sum*, 68,5) XV 
AL(MID*(fb*,2,5)) THEN 5620 EL 
SE 5660 

5600 IF VAL(MID*(sum*,68,5))>V 
AL(MID*(fb*,2,5)) THEN 5620 EL 
SE 5660 

5610 IF VAL(MID*(sum*,68,5))=V 
AL(MID*(fb*,2,5)) THEN 5620 EL 
SE 5660 
5620 y-y+1 

5630 IF y=l THEN BOSUB 2060 
5640 IF <y-2) MOD 19=0 AND y>2 
THEN BOSUB 2290:IF R=1 THEN R 
=0:SOTO 4120 

5650 LOCATE #3,1,y:PRINT#p,sum 
*;TAB(75)|(x+1) 

5660 NEXT x 

5670 IF y=0 THEN fejl«="**** D 
ata ikke fundet ****":BOSUB 19 
70:BOTO 4120 
5680 BOTO 5490 
5690 * 

5700 * 

5710 '****#****************** 
5720 ' Subrutine slette data 
5730 '*****************■****** 
5740 CLS:WINDOW #4,1,80,1,23 
5750 LOCATE #4,30,1:PRINT #4," 
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SLETTEMENU" 

5760 LOCATE #4,30,21 PRINT #4,S 
TRING*(10,"*") 

5770 LOCATE #4,15,6:PRINT #4," 
Slette data for et enkelt nr. 

(E) " 

5780 LOCATE #4,15,8:PRINT #4," 
Slette data -for flere efterfØl 
gende numre (F)" 

5790 LOCATE #4,15,15:PRINT #4, 
"Indtast dit valg <RETURN=HOV 
EDMENU) ?" 

5800 a*=UPPER*(INKEY*) 

5810 IF a*="" THEN 5800 
5820 IF a*="E" THEN 5850 
5830 IF a*="F" THEN 5930 
5840 IF INKEY<18)0—1 THEN 603 
O ELSE 5800 

5850 CLS:LOCATE 1,25:INPUT"Ind 
tast nr. du vil slette (RETURN 
=SLETTEMENU)";sl 
5860 IF si=0 THEN CLS:GOTO 571 
O ELSE IF si>xnr OR sl<0 THEN 
fejl*="**** Nr. findes ikke ** 
**":GOSUB 1970:GOTO 5850 
5870 LOCATE 20,15:PRINT"Vent e 
t Øjeblik. Der slettes." 

5880 FOR sx=sl TO xnr 

5890 øBANKREAD,@r'/.,sum*,sx:øBA 

NKWRI TE, «r 7., sum* , sx -1 

5900 NEXT sx:xnr=xnr—1:LOCATE 

1,15:PRINT CHR*(18):GOTO 5850 

5910 ' 

5920 ' 

5930 CLS:LOCATE 1,25:INPUT"Ind 
tast nr. til nr. du vil slette 
eks. 5,12 (F3=SLETTEMENU)"; 
si 1,sl2 

5940 IF si 1>sl2 THEN 5930 
5950 IF si 1=0 OR sl2=0 THEN CL 
S:GOTO 5710 ELSE IF sll<l OR s 
12>xnr THEN fejl*="**** Nr. fi 
ndes ikke ****":GOSUB 1970:GOT 
O 5930 

5960 si3=sl2-sl1 

5970 LOCATE 20,15:PRINT"Vent e 

t Øjeblik. Der slettes." 

5980 FOR sx1=1 TO sl3+l 
5990 FOR sx-sll TO xnr 
6000 øBANKREAD,@r%,sum*,sx : øBA 
NKWRITE,ar%,sum*,sx-1 
6010 NEXT sx:xnr=xnr—1 
6020 NEXT sxl:LOCATE 1,15:PRIN 
T CHR*(18):GOTO 5930 
6030 RETURN 
6040 ' 

6050 * 

6060 '*********************• 
********* 

6070 ' Subrutine brugervejledn 
ing 


6080 '************************ 
**** 

6090 CLS:PRINT"Dette program e 
r udført til at kunne gemme og 
behandle oplysninger (data) o 
m" 

6100 PRINT"forskellige varer f 
or et mindre lager med max. ca 
. 1000 varenumre." 

6110 PRINT"Alle data opbevares 
og hentes fra computerens eks 
tra blok pA 64 K. For at gøre" 
6120 PRINT“dette muligt skal m 
an huske at køre programmet ba 
nkman før programmet her køres 

6130 PRINT"SAfremt man glemmer 
at køre programmet BANKMAN fø 
r kørslen af dette program vil 

■ I 

6140 PRINT"computeren ved brug 
af programmet give fejlmeldin 
gen UNKNOWN COMMAND IN (LINIE) 




O* 
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6130 PRINT"Fra HOVEDMENUEN aom 
vises ved opstart af programm 
et kan der frit vÆlges mellem" 
6160 PRINT"f01gende underprogr 
ammer :" 

6170 PRINT" 

1 Indtastning af nye data" 
6180 PRINT" 

2 List af data 
(P/8)"" 

6190 PRINT" 

3 Søge data 
(P/S) " 

6200 PRINT" 

4 Hente data fra diskette" 
6210 PRINT" 

5 Gemme data pA diskette" 
6220 PRINT" 

6 Rette data" 

6230 PRINT" 

7 Slette data" 

6240 PRINT" 

8 Beregning af lagerværdi 
(P/S)" 

6250 PRINT" 

9 Brugervejledning" 

6260 PRINT" 1 

0 Sletning af filer fra disk 

etten. 

6270 PRINT" 1 

1 Printer FRA/TIL 

6280 PRINT" 1 

2 Stop programmet" 

6290 PRINT"Underprogram nr.l t 
illader indlosning af forskeil 
ige varer til computerens" 

6300 PRINT"hukommelse. 

6310 L0CATE 30,25:PRINT"Tryk e 
n tast for mere" 

6320 IF INKEY*="" THEN 6320 EL 
SE 6330 

6330 CLS:PRINT"Indlaesningen a 
f de forskellige varer bliver 
automatisk indlagt i alfabetis 
k" 

6340 PRINT"orden i hukommelsen 
."SPRINT 

6350 PRINT"Underprogram nr. 2 
kan vise en Liste af alle data 
indlOst i hukommelsen.":PRINT 
6360 PRINT"Underprogram nr. 3 
kan vise en liste over en spec 
i el gruppe varer, ved at brug- 

II 

6370 PRINT"eren indtaster et a 
ntal begyndelseskarakterer, la 
ver computeVen en søgning igen 
“"I 

6380 PRlNT"nem alle poster i h 
ukommelsen. De poster som har 
samme begyndelseskarakterer so 


m i 

6390 PRINT"indtastet bliver he 
rved udskrevet."SPRINT 
6400 PRINT"Underprogram nr. 4 
kan indlOse data fra disketten 
som er gemt med underprogram 
6410 PRINT"nr. 5":PRINT 
6420 PRINT"Underprogram nr. 5 
kan gemme de DATA som er i com 
puterens hukommelse pA disket- 

II 

6430 PRINT"ten. Der er mulighe 
d for at gemme datafiler med f 
orskellige navne, samt gemme" 
6440 PRINT"disse med adgangsko 
de. Husk at notere koden hvis 
datafilen gemmes pA denne mAde 
»"» 

6450 PRINT"da det ikke er muli 
gt at indlOse disse data igen 
hvis man har glemt koden."sPRI 
NT 

6460 PRINT"Underprogram nr. 6 
kan bruges til at rette i de d 
ata som er i hukommelsen":PRIN 
T 

6470 PRINT"Underprogram nr. 7 
kan slette en eller flere af d 
e poster som er i hukommelsen" 
SPRINT 

6480 PRINT"Underprogram nr. 8 
beregner værdien af hver vareb 
etegnelse (kr.*stk.), samt den 

II 

6490 L0CATE 30,25:PRINT"Tryk e 
n tast for mere." 

6500 IF INKEY*="" THEN 6500 EL 
SE 6510 

6510 CLS: PRINT"saml ede vIErdi f 
or alle vareposter i hukommels 
en"s PRINT 

6520 PRINT"Underprogram nr. 9 
= BRUGERVEJLEDNING"s PRINT 
6530 PRINT"Underprogram nr. 10 
bruges til at slette navngivn 
e filer fra di sketten."s PRINT 
6540 PRINT"Underprogram nr. 11 
styrer til- og frakobling af 
printeren. De underprogrammer" 
6550 PRINT"som er mfErket (P/S) 
kan udskrive resultaterne pA 
enten (P)rinter eller (S)kfErm. 
"SPRINT 

6560 PRINT"Underprogram nr. 12 
afbryder hovedprogrammet (lag 
ersty). Programmet kan startes 
"I 

6570 PRINT"i gen med run + RETU 
RN."SPRINT 

6580 PRINT"Nederst til venstre 
pA skfErmen i hovedmenuen vise 


on 



s om printeren er til eller" 
6590 PR I NT "-fra. Denne til- fra 
kobling af printeren kan som s 
agt Ændres med underprogram" 
6600 PRINT"nr. 10 og har kun i 
ndflydelse pÅ udskrifter fra d 
e underprogrammer som er" 

6610 PRINT"mÆrket <P/S)":PRINT 
6620 PRINT"Nederst midt pA skfE 
rmen i hovedmenuen vises det a 
ntal poster som er i hukom- 
6630 PRINT"melsen":PRINT 
6640 PRINT"Nederst til højre p 
A skÆrmen i hovedmenuen vises 
hvor megen fri lagerplads der" 
6650 PRINT"er til en evt. udvi 
delse af programmet. 

6660 L0CATE 30,25:PRINT"Tryk e 
n tast for mere" 

6670 IF INKEY*="" THEN 6670 EL 
SE 6600 

6680 CLS:PRINT"Denne frie lage 
rplads har ikke noget at gøre 
med hvor megen plads der er ti 
1 bage"; 

6690 PRINT"ti 1 indlosning af n 
ye poster, da disse som sagt 1 

agres i AM5TRAD CPC6128 ekstra 
•• 

6700 PRINT"bl ok pA 64 K." 

6710 L0CATE 20,10:PRINT"Fortsa 
t god fornøjelse med din AMSTR 
AD" 

6720 L0CATE 30,14:PR INT"MED VE/ 
NLIG HILSEN" 

6730 L0CATE 30,16:PRINT"JOHN E 
NSLEV." 

6740 L0CATE 25,25:PRINT"Tryk e 
n tast for HOVEDMENU." 

6750 IF INKEY*="" THEN 6750 EL 
SE 6760 
6760 RETURN 
6770 ' 

6780 ' 

6790 '********************■**** 
******************** 

6800 ' Subrutine sletning af f 
iler fra disketten 
6810 '**********************-** 
******************** 

6820 CLS:øUSER,15:CAT 

6830 LOCATE 1,23:PRINT TAB(66) 

;CHR*(228);"STOP HER";CHR*(11) 

5 TAB(5):INPUT"Indtast filnavn 
som skal slettes. RETURN=HOVED 
MENU ";fi 1 na 
vn* 

6840 IF filnavn$="" THEN 6930 
6850 IF LEN(fi1 navn*)>8 THEN G 
OSUB 1880:GOTO 6830 


6860 ON ERROR GOTO 6920 
6870 OPENIN filnavn* '* Unders 
Øg om filen eksisterer * 

6880 CLOSEIN 

6B90 ON ERROR GOTO 0 

6900 filnavn*=fi1navn*+".*":øE 

RA,filnavn* 

6910 GOTO 6820 

6920 errnum=ERR:IF errnum=32 O 
R DERR=146 THEN fejl*""**** De 
nne fil findes ikke ****":G0SU 
B 1970:kontrol=0:RESUME NEXT 
6930 ØUSER,0 
6940 RETURN 
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TIL: CPC 464/664/6128 

I spillet »Wiping out« gælder det om at være vaks 
på fingrene og have reaktionsevnen skruet op på 
højeste blus. Det gælder nemlig om at styre et alt 
ødelæggende super hurtigt, og jeg mener faktisk 
super hurtigt fly. Ryet dukker op i bunden af skær¬ 
men, og med enten joystick eller tasterne <m>, 
<n> skal du rette flyet ind på en kurs, så det ram¬ 
mer et af de skumle rumuhyrer, der befinder sig 


øverst på skærmen. Men man skal passe på ikke at 
ramme det samme uhyre to gange, for så bliver 
det pludseligt levende igen. Skulle dette ikke lyde 
svært nok, så lad mig pointere, at du får lige nøjag¬ 
tigt 90 sekunder til at udslette hele banden, ellers 
invaderer rumuhyrerne jorden, og så er det ellers 
»Goodbye earthl!« 

(Programmet er indsendt af Claus E. Christen¬ 
sen, der til gengæld modtager 500.00 kroner af 
os.) 







pil 

tøføl 

. jST?# 

10 SYMBOL AFTER 90:SYMBOL 91,1 ^ 

+INT(RND*20):x1—x:FOR 

y=25 

TO 


26,216,216,254,216,216,222:SYM / 

1 STEP -1:IF NOT y=25 

THEN 

LOC 

i&Mi 

BOL 92,124,198,206,214,230,198 
,124:SYMBOL 93,56,0,124,198,25 : O 
4,198,198:SY 

ATE x1,y+l:P 

RINT CHR*(32)) 

80 LOCATE x,y:CALL &BC19:PRINT 


MBOL 150,8,8,8,28,62,73,8,28:8 py 

CHR*(150)J 




YMBOL 131,73,54,62,73,107,127, 
34,28:SYMBOL 132,62,107,42,62, 
127,93,65,621 DIM u(20) 

20 INK 0,0:INK 4,21:INK 5,7,4: 
INK 6,15:INK 9,16,26:PAPER 0:B 
ORDER 0:ENT -1,1,1,1:ENT -2,5, 
2,1,8,-1,1:ENV 2,2,5,1,10,-1,1 
,15,-1,5:ENV 

1,3,5,1,2,-1,1,10,O,1,13,-1,8 
:ENV 3,3,4,1,1,-1,1,11,-1,2:EN 
V 4,3,5,1,3,-1,1,8,0,1,12,-1,8 
:hi=0:sc=0 

30 SPEED INK 20,20:GOTO 230 
40 MODE 0:PEN 9:L0CATE 2,12:PR 
INT"DU FAR 90 SEKUNDER":1-18:R 
ESTORE 60:FOR a-1 TO 17:READ b 
,c:SOUND 1,b,c*l,0,1:S0UND 2,b 
*2,c*l,0,1:S 

OUND 4,b*319/478,c*l,0,1:NEXT: 
FOR a-1 TO 500:NEXT:SPEED INK 
25,15 

30 FOR •-! TO 20:u(a)-0:NEXT:P 
EN 5:LOCATE 1,1:PRINT STRING«< 
20,151) 

60 FOR a-1 TO 1300:NEXT:LOCATE 
2,12:PRINT SPACE*<18):t-0:ti- 
TIME+27000:DATA 319,2,319,1,31 
9,1,358,3,402,1,358,1,338,1,31 
9,3,358,1,40 

2,2,358,1,358,1,319,2,478,1,47 
8,1,536,2,478,8 
70 PEN 4:SOUND 1,0,200,8,0,1,1 
:SOUND 4,2000,200,8,0,0,31:x—1 


fvbj 




90 xl-xiXF INKEY(38)—O OR JOY< 
O)=8 THEN IF x<20 THEN x=x + l 
100 IF INKEY(46)=0 OR JOY(O)-4 
THEN IF x>l THEN x-x-1 
110 NEXT:SOUND 135,0,1:IF u<xl 
)—O THEN u(x1> =1:PEN 6:LOCATE 
x1,1:PRINT CHRS(152):FOR a=l T 
O 5:SOUND 1,478,20,0,3:SOUND 2 
,319,20,0,3: 

SOUND 4,239,20,0,3:NEXT a:t=t+ 

1 ELSE GOSUB 170 

120 IF t-20 THEN tu-TIME:GOTO 

180 

130 IF TIME>ti THEN GOTO 150 
140 FOR a-1 TO 700:NEXT a:GOTO 
70 

150 FOR a-1 TO 400:NEXT:MODE 1 
:INK 1,18:PEN 1:LOCATE 13,10:P 
RINT"TIDEN ER UDLØBET":LOCATE 
1,13:PRINT"DU NÅEDE IKKE AT UD 
SLETTE ALLE 

UHYRERNE":LOCATE 10,16:PRINT"D 
ERFOR FAR DU O POINTS" 

160 FOR b-30 TO 1 STEP -2:FOR 
a-1 TO 500 STEP 25:SOUND l,a,l 
,b/2,,,bi SOUND 4,501-a,1,b/2,, 

,b:NEXT a,bi INK 2,25,12:PEN 2: 
SPEED INK 40 

,20:LOCATE 13,25:PRINT"TRYK EN 
TAST":CLEAR INPUT:CALL &BB06: 
ac-O:GOTO 230 

170 u(x1)-O:PEN 5:LOCATE xl,l: 
t-t—1:SOUND 7,0,80,0,2,2,25:FO 


















R a=l TO 50:NEXT a:PRINT CHR*( 
EN GRAPHICS PEN 6+(<a-l)/4=INT 
<(a-1)/4)):PLOT 76+3*b,320+4*a 
:DRAWR 3,0:DRAWR 0,-l:DRAWR -3 
,O: DRAWR 0,-2:DRAWR 3,0 
240 NEXT b,a:LOCATE 1,25:PRINT 
SPACE* <10):LOCATE 17,7:PRINT" 
LAVET AF":LOCATE 5,9:PRINT"CLA 
US EVERS CHRISTENSEN (C) 1987" 
:LOCATE 6,13 

:PRINT"SIDSTE SPILLER FIK 0000 
POINTS":LOCATE 9,15:PRINT"REK 
ORDEN ER 00000 POINTS" 

250 LOCATE 13,18:PRINT"FLYET S 
TYRES PAi":LOCATE 12,20:PRINT" 
VENSTRE-N M-HØJRE":LOCATE 14, 
151):RETURN 

180 FOR a=l TO 10:S0UND 7,50,8 
:SOUND 7,0,2,0:NEXT asMODE 1:1 
NK 1,22:INK 2,6,26:SPEED INK 1 
5,15:PEN 2:LOCATE 13,8:PRINT"T 
I L L Y K K 

E":PEN 1:LOCATE 10,12:PRINT"D 
U HAR NETOP UDRYDDET":LOCATE 1 
1 ,14:PRINT"DE RESTERENDE UHYRE 


22:PRINT"ELLER JOYSTICK"«LOCAT 
E 3,25:PRINT 

"TRYK 'SPACE' FOR AT STARTE MI 
SSIONEN":hi*“STR*(hi):hi*-RIGH 
T*(hi*,LEN(hi*)-l):sc*-STR*(sc 
):sc*-RIGHT*(sc*,LEN(sc*)-l) 
260 LOCATE 29-LEN(se*),13:PRIN 
T se*:LOCATE 26-LEN(hi*),15:PR 
INT hi* 

270 IF INKEY(47)< >0 THEN 270 E 
LSE SOUND 7,600,0,0,4:GOTO 40 


190 h=20:RESTORE 200:FOR a-1 T 
O 29:READ b,c:SOUND l,b,c*h,0, 
4:SOUND 2,b*2,c*h,0,4:SOUND 4, 
b*0.5,c*h,0,4:NEXT 
200 DATA 478,1,478,1,426,2,478 
,2,358,2,379,4,478,1,478,1,426 
,2,478,2,319,2,358,4,478,1,478 
,1,239,2,284,2,358,1,358,1,379 
,2,426,2,268 

,1,268,1,284,2,358,2,319,2,358 
,2,478,2,568,2,716,4 
210 SPEED INK 3,3:FOR a=0 TO 2 
5:BORDER a,a+l:FOR b-1 TO 100: 
NEXT b,a:BORDER 0:CLS:INK 1,26 
:PRINT TAB(8)"NU AFGØRES DIT P 
OINTANTAL":s 

c=0:LOCATE 8,4:PRINT"DINE NUVE 
RENDE POINTS:":LOCATE 18,7:PRI 
NT"TID:":FOR a=ti-tu TO 1 STEP 


220 sc=sc+5:LOCATE 30,4:PRINT 
US ING " ###<♦ " ; se : LOCATE 22,7: PR I 
NT USING"##"}a/300:SOUND 7,20, 
1:NEXTiIF sc>hi THEN hi=sc:SPE 
ED INK 5,5:L 

OCATE 16,18:INK 2,24,14:PEN 2: 
PRINT"NY REKORD":FOR a-200 TO 
1 STEP —2:SOUND 7,a,1:NEXT:FOR 
a=l TO 2000:NEXT:GOTO 230 
230 MODE li INK 1,7:INK 2,6:INK 
3,13:PEN 3:LOCATE 1,25:PRINT" 
WIPING OUT":FOR a=l TO 15 STEP 
2:FOR b=l TO 159 STEP 2:IF TE 
ST(b,a)=3 TH 
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mm 



TIL: CPC 464/664/6128 

Dette Utility program, der er indsendt af Lars Peter¬ 
sen, er en såkaldt memory-dumper. Det betyder, 
at du med programmet kan aflæse et hvilket som 
helst sted i hukommelsen (også ekstra ROM), og få 
udskrevet hex-værdien og det tilsvarende ascii- 


tegn for den pågældende værdi. Det vil især være 
nyttigt for folk, der beskæftiger sig med maskin¬ 
kode-programmering. Men ud over dump-funk¬ 
tionen så er der også mulighed for at gå ind og 
ændre i hukommelsen. Porogrammet er ganske 
nydeligt og overskueligt bygget op. 


10 'Memorydumper 
20 'Maskinkode til RSX-ordren 
PEEKR (PEEKROM) 

30 MEMORY 39999 

40 FOR i=40000 TO 40082 1 READ a 
»iPOKE i ,VAL("8<"+a*> sNEXT i 
50 CALL 40000 

60 DATA 01,4E,9C,21,4A,9C,CD,D 

1,BC,09,00,00,00,00 

70 DATA 53,90,03,59,90,50,45,4 

5,4B,D2,00,FE,03,02 

80 DATA 7A,90,DD,4E,04,DD,66,0 

3,DD,6E,02,DD,56,01 

90 DATA DD,5E,00,OD,OF,B9,05,4 

6,62,6B,70,Cl,CD,18 

100 DATA B9,09,21,87,90,06,00, 

7E,CD,5A,BB,23,10,F9 

110 DATA 09,53,79,6E,74,61,78, 

20,65,72,72,6F,72 

120 MODE 2 

130 MOVE 10,399:DRAW 630,399:D 
RAW 639,390 

140 DRAW 639,340:DRAW 630,331: 
DRAW 10,331 

150 DRAW 1,340:DRAW 1,390:DRAW 
10,399 

160 MOVE 320,400:DRAW 320,331 
170 WINDOW 3,39,2,3:WINDOW Ml, 
1,80,6,25:WINDOW #2,42,79,2,4: 
WINDOW #3,3,39,4,4 
180 PRINT#2," (C) Copyright 1 

987, Lars Petersen" 

190 PRINT#2," Memorydumpe 

r Vers. 2.1 " 

200 PRINT" (D)ump (R)omdu 

mp (E)di tor" 

210 a*=INKEY*:IF a*="" THEN 21 
O 

220 a$=UPPER*(a$) 

230 IF a*«"D" THEN GOTO 280 
240 IF a»="E" THEN GOTO 380 


M 

4 

I 


250 IF a*="R" THEN GOTO 820 
260 GOTO 210 
270 GOTO 210 

280 us=l:INPUT #3,"Startadress 
•for dump " j start i CLS #3:CLS#1 
290 FOR 1=start TO start+304 S 
TEP 16:PRINT #1,HEX*(1,4);" 

" S 

300 FOR x=0 TO 15:PRINT#1,HEX* 
(PEEK(1+x ) ,2) ; " M ;:NEXTx 
310 PRINT#1," "}i FOR x=0 TO 

15:i=PEEK <1+x)i PRINT#1, CHR*(i 
AND i>31)jCHR*(46 AND i<32);: 
NEXT x 

320 PRINT#1:NEXT 1 
330 PRINT#3,"SPACE continue, M 
- MENU" 

340 a*=INKEY*:IF a»="" THEN 34 
0 

350 IF a*=" " THEN start =star 
t+320:GOTO 290 
360 IF UPPER*(a*)="M" 

#3:GOTO 210 
370 GOTO 340 
380 'proc editor 
390 IF us=0 THEN GOTO 
400 PRINT#3,"ENTER to 
tor" 

410 WINDOW SWAP 1 
420 adr=start:y=l:x=9:xl=0 
430 LOCATE x,y:CALL &BB81 
440 a$=INKEY*:IF a*="" THEN 
0 

450 CALL &BB84 

460 IF a*=CHR#(13) THEN CLS#3: 
WINDOW SWAP 1,0:GOTO 210 
470 IF a*>CHR*<239> THEN ON AS 
C (a$)-239 GOTO 690,710,730,770 
480 IF x >59 THEN GOTO 640 
490 IF INSTR("0123456789ABCDEF 
",a*)»0 THEN 430 


THEN 


24 




























500 i * (PEEK(adr+x1) AND 15)+ 16 
*VAL("8<"+a#) 

510 POKE adr+x1 f i 

520 LOCATE x.yiPRINT a* 

530 CALL &BB84:x=x + l 

540 LOCATE x,yiCALL &BBB1 

550 a#=INKEY*:IF a$-" " THEN 55 


52-65536) ";radr 
840 PRINT#3." 


850 FOR 1-radr TO radr +304 ST 
EP 16:PRINT #1,HEX*(1,4);" 


860 FOR x-0 TO 15i n7.=0: øPEEKR, 
romn o, 1 +x , ®ny.: PR I NT# 1, HEX* (n - /., 
2)|" iNEXT x 

870 PRINT#1," " | : FOR x=0 TO 

15: øPEEKR, romno, 1 +x , fin’/.: PR I NT# 
1, CHR*(nX AND n7.>31) ; CHR* (46 
AND n7.<32) ; : NEXT x 
880 PRINT#1:NEXT 1 
890 PRINT#3,"SPACE continue, M 
- MENU" 

900 a*=INKEY*:IF a*="" THEN 90 


560 CALL &BBB4 

570 IF INSTR("01234567B9ABCDEF 

",a*)=0 THEN 540 

580 i=(PEEK(adr+x1) AND 240)+V 

AL("&"+a*) 

590 POKE adr+x1,i 
600 LOCATE l,y:PRINT HEX*(adr, 
4>j" i FOR i=0 TO 15:PRINT 

HEX*(PEEK(adr+i),2);" "$ iNEXT 


610 PRINT" ";i FOR i=0 TO 15: 
k=PEEK(adr+i):PRINT CHR*(k AND 
k>31);CHR*(46 AND k<32)}:NEXT 


910 IF a*=" " THEN radr=radr+3 
20:GOTO 840 

920 IF UPPER*(a*)="M" THEN CLS 

#3: GOTO 210 ^__ 

930 GOTO 900 ^ 


620 IF x=55 THEN x=*60: x 1-0: GOT 
O 430 

630 x-x+2:xl-x1+1:GOTO 430 
640 i=ASC(a*> 

650 POKE adr+x1,i:LOCATE l,y: 
PRINT HEX*(adr,4);" ";:FOR 
1=0 TO 15:PRINT HEX*(PEEK(adr+ 
i),2)*" ";:NEXT i 
660 PRINT" "|:FOR i-O TO 15: 
k=PEEK(adr+i):PRINT CHR*(k AND 
k>31);CHR*(46 AND k<32)j:NEXT 


670 IF x=75 THEN x=B:xl=-l:IF 
y<20 THEN adr=adr+16:y=y+l:x=9 
:x1=0:GOTO 430 
680 x=x+l:xl=x1+1:GOTO 430 
690 IF y>1 THEN y=y-l:adr=adr- 
16:GOTO 430 
700 GOTO 430 

710 IF y<20 THEN y=y+l:adr=adr 
+16:GOTO 430 
720 GOTO 430 

730 IF x >60 THEN x-x-1:xl=x1-1 
:GOTO 430 

740 IF x=60 THEN x=57:xl=16 
750 IF x >9 THEN x=x-3:x1-x1-1: 
GOTO 430 

760 x=75:x1=15:GOTO 690 

770 IF x<54 THEN x=x+3:xl=x1+1 

:GOTO 430 

780 IF x =54 THEN x=59:xl=-l 
790 IF x<75 THEN x=x+l:xl=x1+1 
:GOTO 430 

800 x=9:x1=0:GOTO 710 

810 'proc ROMDUMP 

820 us=0:INPUT #3,"ROM no "jro 

mno 

830 INPUT #3."Startadress (491 


; 






sm 

•:W 


sf* 

•M 




•m 
-, ■»:> 


Så er der igen bud efter dine skydefærdigheder og 
reaktionsevne. Denne gang gælder det en kap¬ 
skydning i det vilde vesten. Du er blevet udstyret 
med Colt 45, og med denne kanon går du kold og 
rolig op og ned ad hovedgaden, men pludselig, 
som lynet fra en klar himmel, kaster du dig ned på 


knæ og fyrer din Colt af mod målet. Hvis dine sky¬ 
defærdigheder er i orden, bliver du hædret, men 
rammer du ikke, så bliver du helt til grin over for 
din rival Barske Billy, og værst af alt er du også til 
grin over for din forlovede miss Stella. 

(Programmet er indsendt af Ove Jørgensen i 
Helsingør). 



SKYTTEN 


5 MODE O 

10 * ************************* 
*** 

20 * * 

* 

30 * * 

« 

* OVE JØRGENSEN 


• *** 
• - , 


(c)1987 


************************* 


166 


.V 


:»• 


40 

* 

50 

*** 

60 SYMBOL AFTER 
70 DEFINT a-z 

80 SYMBOL 167,62,42,62,8,8,62, 
93,157 

90 SYMBOL 168,0,0,0,0,0,12,0,0 
100 SYMBOL 169,93,28,28,28,20, 
23,16,112 

110 SYMBOL 170,157,28,28,28,20 
,116,4,7 

120 SYMBOL 171,137,82,0,73,146 
,0,74,145 
130 SYMBOL 172,24,24,24,60,126 


• • 




• #» 


I • 



,126,60,24 

140 SYMBOL 173,0,112,96,112,32 
,35,126,112 

150 SYMBOL 174,112,112,112,112 
,124,20,20,244 

160 SYMBOL 175,153,66,36,153,1 
53,36,66,153 

170 SYMBOL 176,15,8,15,11,10,1 

1 , 8,8 

180 SYMBOL 177,255,0,240,224,1 
60,224,128,128 

190 SYMBOL 178,255,0,127,60,56 
,60,16,16 

200 SYMBOL 179,128,128,128,128 
,128,128,128,128 
210 SYMBOL 180,0,0,0,0,0,0,24, 
24 

220 SYMBOL 181,255,223,191,223 

,191,223,191,255 

230 SYMBOL 182,255,255,255,255 

,255,255,255,255 

240 SYMBOL 183,255,255,255,255 

,255,255,255,255 

250 SYMBOL 184,170,85,170,85,1 

70.85.170.85 

260 SYMBOL 185,168,80,168,80,1 

68.80.174.86 

270 SYMBOL 186,3,4,8,9,9,8,4,3 
280 SYMBOL 187,255,63,16,144,1 
44,16,32,192 

290 SYMBOL 188,255,255,0,0,0,0 

, 0,0 

300 SYMBOL 189,255,255,2,2,2,2 

, 1,0 

310 SYMBOL 190,208,8,4,100,100 

,4,8,240 

320 ps=0 
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330 BORDER 24:PAPER O:PEN 1:IN 
K 0,24:INK 1,0:CLS 
340 PRINT CHR*(24)"S 
T E N"CHR$(24) 

350 PRINT: PRINT" 19B7 OVE JORGE ~J 
NSEN" 

360 PRINT:PRINT:PRINT"TRYK 
TAST (S) OG RAM SAA MANGE 

L SOM MULIGT_" 

370 PRINT:PRINT"DER ER 4 PATRO 
NER I OVERSKUD.HVIS DU ER EN R 
IGTIG SKARPSKYTTE..." 

380 PRINT:PRINT:PRINT: PRINT 

LOCATE 10,16:PRINT CHR*<17 


390 

3) 
400 

4) 
405 


LOCATE 10,17:PRINT CHR*(17 


"*TRYK 


1,0 


LOCATE 12,22:PRINT 
EN TAST NED*" 

410 IF INKEY#="" THEN 410 
420 BORDER 12:INK O,12:INK 
:INK 2,9 
430 CLS:DIM f(16,21) 

440 PEN 13:FOR F=1 TO 24:L0CAT 
E 1,F+1:PRINT CHR*<175);:LOCAT 
E 20,F+1:PRINT CHR*(175);:NEXT 
F 

450 FOR F=1 TO 18:LOCATE F+1,2 
:PRINT CHR* <175)|: LOCATE F+l, 
25: PRINT CHR*(175);:NEXT F:PE 
N 13 

460 FOR i=l TO 10 
470 rx=INT (RND(1)*8)+1:ry=INT 
(RND (1)*16)+1: IF -f(rx,ry)*l T 
HEN 470 ELSE -f(rx,ry)=l: LOCATE 
rx+10,ry+3:PRINT CHR*(172):NE 
XT i 

480 y=4:sch=14:r=l:mand=169 
490 LOCATE 1,1:PEN 1:PRINT"*SK 
UD*"sch 

500 LOCATE 12,1:PEN 1:PRINT"*R 
AMT*"ps:PEN 1 

510 IF ps=10 OR sch=0 THEN GOT 
O 800 

520 LOCATE 3,y-r:PRINT .LOC 

ATE 3,y:PRINT CHR*<167) 

530 LOCATE 3,y+l-r: PRINT " ": 
LOCATE 3,y+1:PRINT CHR*(mand> 


540 LOCATE 3,y+l-r: PRINT . 

LOCATE 3,y:PRINT CHR*<167) 

550 LOCATE 3,y-r:PRINT " ":LOC 
ATE 3,y+1:PRINT CHR#(mand) 

560 IF scOO THEN a*=INKEY*:sc 
=sc—1:GOTO 580 

570 a*=LONERS(INKEY*) : IF a*="s 
" THEN GOSUB 620 
580 IF y= 4 THEN r=l ELSE IF y 
THEN r — 1 
y-y+r 

IF mand=169 THEN mand=170 
mand = 169 


=23 

590 

600 

ELSE 



GOTO 490 
E*=CHR*(173) 
F*=CHR*(174) 
PEN 4: LOCATE 


v» 

* < 


* 


610 
620 
630 

640 

* 

650 LOCATE 3,y+1:PRINT F* 

660 FOR t=7 TO O STEP -1:S0UND 
7,300,4,t,,,10:NEXT t 
670 FOR i=4 TO 6:LOCATE i,y:PR 
INT CHR*<168) 

680 FOR t=l TO 10:NEXT t 

690 LOCATE i,y:PRINT" ":NEXT i 

700 FOR i=1 TO 9 

710 IF f(i,y-3)=1 THEN 730 

720 LOCATE i+10,y:PRINT CHR*(1 

68):FOR t=l TO 10:NEXT t:LOCAT 

E i+10,y:PRINT" ":NEXT i:sch=s 

ch-l:sc=2:RETURN 

730 LOCATE i+10,y:PRINT CHR*<1 
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71) 

740 

750 

760 

770 

7B0 


SOUND 7,500,40,7,,,15 
i (i,y-3)=0 
sc* 1 

FOR t*=l TO 100: NEXT t 
ps=ps+lisch=sch-l:LOCATE 


+10,y:PRINT" " 

790 RETURN 

800 CLS:BORDER 24:INK 0,24:INK 
1,0:PAPER O:PEN 1:CLS:PRINT"D 
U HAR"ps"PLETSKUD" 

810 PRINT:PRINT 

820 IF ps=0 OR ps=l THEN LOCAT 
E 15,17:PRINT CHR*(190):PRINT: 
PRINT"ET HALVT HJUL KOMMER DU 
IKKE LANGT MED *PROV IGEN,TAST 
J/N" 

830 IF ps=2 OR ps=3 THEN LOCAT 
E 15,17:PRINT CHR#(186)+CHR*<1 
87):PRINT:PRINT"BLIV VED TAST 
J/N" 

840 IF ps=4 OR ps=5 THEN LOCA 
TE 15,16:PRINT CHR*(181)+CHR*( 
182):LOCATE 15,17:PRINT CHR*(1 
86 > +CHR* <187):PRINT:PRINT"NU G 
AAR DET BEDR 
E MED AT SIGTE,TAST J/N" 

850 IF ps=6 OR ps=7 THEN LOCAT 
E 15,15:PRINT CHR*(176)+CHR*(1 
77)+CHR*(178):LOCATE 15,16:PRI 


• i 




• - 


NT CHR#(181)+CHR*(182):PRINT:P 
RINT"DU ER 

SNART EN MESTER I AT SKYDE 
, BLIV VED,TAST J/N" 

860 IF ps=8 OR ps=9 THEN LOCAT 
E 10,15:PRINT CHR#(176)+CHR*(1 
77)+CHR#(178)+CHR#(179):LOCATE 
10,16:PRINT CHR#(181)+CHR#(18 
2)+CHR#(183) 

+CHR#(184)+CHR#(185):PRINT: PRI 
NT"NU LIGNER DET SNART EN ???, 
TAST J/N" 

870 IF ps*10 THEN LOCATE 15,15 
:PRINT CHR*(176)+CHR#(177)+CHR 
♦\178)+CHR#(179)+CHR*(180):LOC 
ATE 15,16:PRINT CHR*(181)+CHR* 
(182)+CHR#(1 

83)+CHR*(184)+CHR*(185):LOCATE 
15,17:PRINT CHR*(186)+CHR#(18 
7)+CHR*(188)+CHR*(189)+CHR*(19 
O):PRINT"TILLYKKE" 

880 oj*=INKEY*:IF oj*="" THEN 
880 

890 IF LOWER*(oj#)="n" THEN EN 
D:STOP 

900 IF LOWER*(oj*)="j" THEN RU 
N 

910 GOTO 880 
920 END 
































TIL: CPW Joyce 

I den sidste tid har vi hørt meget om de unge børs¬ 
vekselerere, der tjener bunkevis af penge på børs¬ 
handeler, Når så pressen kommer ind på livet af 
nogle af disse »superhjerner«, viser det sig jo ofte, 
at de er mennesker ligesom du og jeg, de har bare 
haft en smule grunker på kistebunden, og med 
dem har de enten stille og roligt eller helt eksplo¬ 
sivt opbygget en astronomisk kapital. Når man 
hører den slags historier, dukker ønsketænknin¬ 


10 REM ************** 

****************************** 
***** 

20 REM *** AKTIE 

SPILLET B \ R S E N 

** 

30 REM ************** 

****************************** 
***** 

40 REM skrevet af Kaa 

re Pedersen, NCstved, 1987 
50 REM Skrevet p) Ams 

trad PCU 8256, "Joyce" 

60 : 

70 REM ********* DEFINITION 
ER OG HJ C LPEFUNKTIONER ***** 
***** 

80 escape*=CHR*<27>;home*»esca 
pe*+"H":cls*=escape*+"E"+home* 
90 DEF FNscreen*(x,y,text*)=es 
c ape*+"Y"+CHR* C y+32)+CHR* <x+32 
)+text* 

100 ul*=escape*+"r":ejul*=esca 
pe*+"u";REM Under linier i 

ng og ej under 1iniering 
110 inv*=escape*+"p":iinv*=esc 
ape*+"q":REM Omvendt vide 

o og almindelig video 
120 slet*=escape*+"J":REM 

sletter fra mark I ren og side 
n ned 

130 DIM kurs(lO) 
runde=0 
X-tl 
b=-1 

DIM sruk(9,400) 


gen op i hjemekrogene. »Kunne man mon tjene 
sig lidt penge, hvis man blev børsvekselerer, bare 
en million eller ti?« Sådan har vi sikkert allesam¬ 
men tænkt, men nu får du faktisk muligheden for 
at teste dine evner som finanshjerne, i hvert fald 
hvis du er den lykkelige ejer af en Joyce og du 
gider taste det nedenstående program ind. 

(Programmet er indsendt af Ka'are Pedersen, og 
vi sender til gengæld 750.00 til dig, Kaare!) 




F sj*,,. 


i*" 







************************ 

200 REM ** reglprne pr 

Csenteres ** 

210 REM ************** 

************************ 

220 PRINT cis* 

230 PRINT ul*;FNscreen*<20,5," 
REGLERNE FOR B\ 

R S E N");ejul* 

240 PRINT FNscreen*(10,8,"Blrs 
en er at spil hvor kurserne 
hele tiden Cndrer sig for" 

) 

250 PRINT FNscreen*(10,9,"9 ud 
valgte papirer, Der findes 
to bIrser hvor blrs I, som i" 
> 

260 PRINT FNscreen*(10,10,"vir 
kelighedens verden er den mes 
t stabile, mens der er stirre" 
) 

270 PRINT FNscreen*(10,11,"ris 





















r*V * * < 


chancer for stirre gevinster." 
) 

280 PRINT FNscreen$(10,12,"Man 
kan ved splrgsmllet <Klb/Sa 
lg> vClge at kIbe eller slige" 
) 

290 PRINT FNscreent(10,13,"el1 
er via et tryk p) <return> a 
t sidde over. Endelig kan man" 
) 

300 PRINT FNscreen*(10,14,"for 
et hvilket som helst papir se 
op til 10 runder tilbage, for 

" ) 

310 PRINT FNscreen*<10,15,"det 
te krCves et kommandoen KURVE" 
) 

320 PRINT FNscreen*C10,16,"Hvi 
s en kurs kommer under 30 su 
spenderes salg og klb, indtil" 

> 

330 PRINT FNscreen*(10,17,"kur 
sen atter er over de 30.") 

340 PRINT FNsc reen*(10,18, "lian 
f)r fra starten tildelt 10.00 
0 kr i kapital. Disse decimere 
s" ) 

350 PRINT FNscreen*(10,19,"1 Ib 
ende med 10 kroner for hver ru 


nde samt ved de klb man gir, " 
) 

360 PRINT FNscreen*(10,20,"Des 
uden mister man sine papirer h 
vil kurien p) noget tidspunkt" 

) 

370 PRINT FNscreen*<10,21,"n)r 
ned p) 5 eller under,") 

375 PRINT FNscreen*(10,22,"Der 
vises hele tiden to kl bekurse 

r. Nemlig kursen ved fIrste og 
") 

376 PRINT FNscreen*<10,23,"sid 
ste klb. Spillet sluttes hvis 

man n)r over 50.000 eller ned 

") 

377 PRINT FNscreen*(10,24,"p) 

0 kroner i fri kapital.") 

380 PRINT inv*;FNscreen*<69,30 
,"<TRYK RETURN> M );iinv*; 

390 IF INKEY*="" THEN 390 
400 : 

405 PRINT c Is*;PRINT FNscreen* 
<10,15,"FOR AT SPILLET IKKE SK 
AL VCRE DET SAMME GANG FOR GAN 

G") 

406 PRINT FNscreen*<10,17,"SKA 
L DU HER SKRIVE HVOR MANGE GAN 
GE RANDOMIZEN <P0PULCRT=TILFCL 
DIGHEDSTALS") 


(( 








m 




o 















































407 PRINT FNscreen$(10,19,"- G 
ENERATOREN) SKAL GENNEMLXBES") 
;|INPUT HW jhg 

408 FOR a=l TO hg:j k = INT(RND): 
NEXT 

410 REM ************** 

****************************** 
************* 

420 REM ** valuering a 

f startkurs,startkapital og an 
tal aktier ** 

430 REM ************** 

****************************** 
************* 

440 FOR a=l TO 9:READ navn$(a) 
;kurs<a)=100;NEXT;kap=l0000 
450 : 

460 REM ************** 

****************************** 
***** 

470 REM * sk(rmskabalo 

n og valg mellem klb og salg 
* 

480 REM ************** 

****************************** 
***** 

490 IF lyn**"S" THEN GOSUB 217 
0 

500 IF lyn*-"S" THEN GOTO 600 
510 PRINT cis* 

520 PRINT FNscreen*(38,4,"R U 
N D E runde 

530 PRINT FNscreen*C20,10,"ANT 
AL AKTIER");TAB(29);"KURS"jTAB 
C40);"DIN KXBEKURS" 

540 FOR b=l TO 9 
550 IF b=l THEN PRINT;PRINT TA 
B(20);inv*;TABC44);"B\RS 1";TA 
B(75);iinv* 

560 IF b<6 THEN;PRINT TAB<20); 
ant(b);TABC26);b;navn*(b);TAB< 
45);kurs(b);TAB(60);kkurs(b); 

TAB(70);kkkurs(b) 

570 IF b=6 THEN PRINT;PRINT:PR 
INT TAB< 20);inv*;TAB(44);"B\RS 
2";TABC75);iinv* 

580 IF b>=6 THEN;PRINT TABC20) 
;ant(b);TAB < 26);b;navn*< b) ; TAB 
(45);kurs(b);TABC60)jkkurs(b); 

TAB(70)j kkkurs(b) 

590 NEXT:PRINT:PRINT 

600 FOR a-1 TO 9:test*<a)-"N": 

NEXT:REM For at "nulstille" v 

ariablen 

610 FOR a-1 TO 9: IF kurs<*)<3 
O AND a<6 THEN-.PRINT FNsc r een* 
<45,12+a,"SUSPENDERET"): 

test*Ca)="Y":GOTO 630 
620 IF kurs(a)<30 THEN:PRINT F 
Nscreen*C45,15+a,"SUSPENDERET" 


v* 


) :test*(a)="Y" 

630 NEXT 
640 : 

650 lyn**"":REM For at 

nulstille variablen 
660 PRINT FNscreen*<19,25,"FRI 
KAPITAL:");kap:PRINT TAB(20); 

;INPUT "K\B/SALG <K/S)";1*: 

1*=UPPER*(1*):IF 

1*="K" THEN 
GOTO 710 

670 IF 1*="S" THEN GOTO 810 
680 IF 1*="KURVE" THEN GOSUB 1 
270;GOTO 890 

690 lyn**"S":GOTO 890:REM 
Lyn-variablen gir indflring 
af nye variable hurtigere 

700 : 

710 REM ************** 

****************************** 
*** 

720 REM ** procedure v 

ed klb af ak tier 
** 

730 REM ************** 

****************************** 
*** 

7 AO GOSUB 1200 

750 IF kursCnr)#antal>kap-100 
THEN -.PRINT inv*; FNscreen*< 1 9, 
27,"SI MEGET KAPITAL HAR DU IK 
Kl !!!");iinv*;slet*i POR a=l T 
O 2000:NEXT; 

GOTO 740 

760 ant(nr)*ant(nr)+antal:kap= 

kap-kurs(nr)*antal 

770 IF kkurs(nr)=0 THEN kkurs< 

nr)=kurs(nr);GOTO 890 

780 IF kkurs(nr)>0 THEN kkkurs 

(nr)=kurs(nr) 

790 GOTO 890 
800 : 

810 REM ************** 

****************************** 
*** 

820 REM **** Procedur 

e ved salg af aktier 
* 

830 REM ************** 

****************************** 
*** 

840 GOSUB 1200 

850 IF antal>ant(nr) THEN 840 
860 IF antal=ant(nr) THEN :kku 
rs(nr)»O:kkkurs(nr >*0 
870 ant(nr)*ant<nr)-antal:kap= 
kap+kursCnr)*antal 
880 : 

890 REM ************** 










****************************** 

***** 


****** 
for alle 


Udregn 

papirer 


Llkke der g 
for alle pap 

fordelt p) 


900 REM 
ing af kursen 
**** 

910 REM ************** 

****************************** 
***** 

920 runde=runde+l 
930 REM ******** 
enererer kurserne 
irer ********** 

940 REM ******** 
blrs I og Blrs II 
********** 

950 FOR b®1 TO 9 
960 IF b<6 THEN kurs(b)«kurs(b 
) + INT C RND*21)-10 
970 IF b>“6 THEN kurs<b)«kurs< 
b)+INT(RND*25)-12 
980 IF kursCbXO THEN ;kurs(b) 

“0 

990 sruk(b,runde)=kurs(b) 

1000 NEXT 

1010 REM ******** Checkning 
af kurserne for fallit/gevinst 
etc. ********** 

1020 FOR b=l TO 9 
1030 IF kurs(b><=5 AND kkursCb 

>>0 THEN PRINT FNscreen$(0,28, 
"DU MISTEDE ALLE DINE ");navni 
(b);" AKTIER":FOR a=l TO 2000: . 
NEXT:PRINT F 
Nsc reen«(0,28,"");slet« 

1040 IF kurs(b)<=5 AND kkurs(b 
)>0 AND b<6 THEN :PRINT FNscre 
en»<19,12+b,"");0;FNsc reen«(59 
,13+b,"");0;FNscreen*<69,13+b, 

""); 0 

1050 IF kurs<b)OS AND kkurs<b 
>>0 AND b>=6 THEN :PRINT FNscr 
een« <19,15+b,"");0;FNsc reen«(5 
9,15+b,;0;FNsc reen«(69,15+b 
,"">;0 

1060 IF kurs(b)<5 THEN;ant(b)« 
0:kkurs(b)=0;kkkurs(b)*0 
1070 NEXT 
1080 : 

1090 kap=kap-l0 

1100 IF kap<l THEN PRINT "DU E 
R FALLIT !!!":END 
1110 IF kap>50000! THEN PRINT; 
PRINT:PRINT "HURAAA !!!!, DU E 
R BXRSMATADOR, DIN FORRENTNING 
ER OVER 500 X":END 
1120 GOTO 460; REM NY Omg 

ang 
1130 : 

1140 ; 


1150 REM ****** 

1160 REM * Navn 

givning af aktier * 

1170 REM ****** 

****************************** 
1180 DATA SUPERF0SS,N0V0,BALTI 
CA,B&O,ISS,DEN DANSKE BANK,TOR 
M,FORD,CODAN 
1190 : 

1200 REM ****** 

****************************** 
* 

1210 REM * Spir 

gsmll ved klb og salg 
* 

1220 REM ****** 

****************************** 
* 

1230 PRINT FNscreen«(19,27,"") 
;slet«;:INPUT "AKTIENUMMER";nr 
;IF nr<l OR nr>9 THEN 1230 
1240 IF test«(nr)="Y" THEN;GOT 
0 1230 

1250 PRINT FNscreen«<19,28,"") 
;:INPUT "HVOR MANGE";antal:RET 
URN 
1260 : 

1270 REM ****** 

****************** 

1280 REM ***** 

Kurve ****** 

1290 REM ****** 

****************** 

1300 PRINT cis«;FNscreen*(10,1 
0,"Hvilket papir:"); 

1310 INPUT papir 

1320 : 

1330 rund=runde; REM For at 
kunne starte igen med det rig 
tige rundenummer 
1340 PRINT cis« 

1350 : 

1360 IF runde>=l0 THEN;runde=r 

unde-9:GOTO 1430 

1370 IF runde<l0 THEN:runde=1; 

GOTO 1780 

1380 : 

1390 REM ************** 

************** 

1400 REM * der er over 

9 runder * 

1410 RIM ************** 

************** 

1420 REM ******** En ramme ti 
1 teksten tegnes ******* 

1430 FOR b*0 TO 1:FOR a-0 TO 6 
0;PRINT FNscreen*(25+a,2+b*8,C 
HR*<154)):NEXT;NEXT 


Tj 
















1440 FOR b=0 TO 1:FOR a=0 TO 8 
;PRINT FNscreen*(25+b*60,2+a,C 
HR*(149))jNEXT;NEXT 
1450 PRINT FNscreen$<25,2,CHR* 
C150));FNscreen*(85,2,CHR*(156 
));FNsc reen*(25,10,CHR*(147)); 
FNsc reen*(85,10,CHR*(153)) 

1460 REM ******** Tekst: Over 
skrift med angivelse af papir 
og runder ,********* 

1470 REM ******** Kurs 

tallene for hver runde, Og pro 
centmCssig ********* 

1480 REM ******** afvi 

gelse fra den f Irste startrund 
en ********* 

1490 PRINT ul*;inv*;FNscreen*( 
30,3,"DATA FOR PAPIR");papir;" 
FOR RUNDERNE";runde;"TIL";rund 
; iinv*;ejul* 

1500 PRINT u1*;FNsc r een*(30,5, 
"KURSTALLENE RUNDE FOR RUNDE") 
;ejul* 

1510 PRINT FNscreen*(30,6,"">; 

;F0R a=0 TO 9 

1520 »ruk(papir,0)*100 

1530 PRINT sruk(papir,rund*+a) 

1540 NEXT 

1550 pct=(sruk(papir,runde)-sr 
uk(papir,rund))*100/sruk(papir 
, runde) :IF pct<0 THEN pct—pct 
1560 pct=INT(pct) 


1570 PRINT FNscreen*(30,8,"SID 
EN RUNDE");runde;"ER PAPIRET"; 
1580 IF sruk(papir,rund)»sruk( 
papir,runde) THEN :PRINT " UCN 
ORET";:GOTO 1620 
1590 IF sruk(papir,rund)>sruk( 
papir,runde) THEN ;PRINT " STE 
SET" ; 

1600 IF sruk(papir,rund)<sruk( 
papir,runde) THEN :PRINT " FAL 
DET"; 

1610 PRINT FNscreen*(62,8," ME 

D")-pct;;PRINT FNscreen*(71,8, 
"PCT.") 

1620 GOSUB 2090:REM KOORDI 

NATSYSTEM SKAL TEGNES 
1630 PRINT FNscreen*(3,19,""); 
sruk(papir,runde):REM X-ak 

sen valueres 

1640 REM ****** Kurserne plo 
ttes ind ******* 

1650 FOR a=0 TO 9 
1660 dif=(sruk(papir,runde+a)- 
sruk(papir,runde))/2 ;REM 

Forskellen mellem fIrste 
runde og sidste runde 
1670 PRINT FNscreentC12+(a#4), 
19-dif,"*") 

1680 NEXT 
1690 : 

1700 PRINT inv*;FNscreen*(69,3 
0,"<TRYK RETURN>");iinv* 

1710 IF INKEY*="" THEN GOTO 17 







































10 

1720 runde=rund:REM For al 

rundenummeret skal passe, 

1730 RETURN 
1740 : 

1750 REM ********************* 
******* 

1760 REM * der er under 10 r 
under * 

1770 REM ********************* 
******* 

1780 FOR b=0 TO 1:FOR a-0 TO 6 
0;PRINT FNsc reen*(25+a,2+b*8,C 
HR*(154));NEXT:NEXT 
1790 FOR b=0 TO 1:FOR a=0 TO 8 
;PRINT FNsc reen*(25+b*60,2+a,C 
HR*(149));NEXT:NEXT 
1800 PRINT FNscreen*(25,2,CHR* 
(150));FNsc reen*(85,2,CHR*(156 
));FNsc reen*(25,10,CHR*(147)); 
FNsc reen*(85,10,CHR*(153)) 

1810 : 


a 


1820 PRINT ul*;inv*;FNscreen*( 
30,3,"DATA FOR PAPIR");papir;" 
FOR RUNDERNE";0;"TIL";rund; 
ejul*;iinv* 

1830 PRINT ul*;FNscreen*(30,5, 
"KURSTALLENE RUNDE FOR RUNDE") 
;ejul* 

1840 PRINT FNscreen*(30,6,"100 
");:FOR a=0 TO rund-1 
1850 PRINT sruk(papir,runde+a) 

1860 NEXT 
1870 PRINT FNsc reen*( 30,8, "SID 
EN RUNDE");O;"ER PAPIRET"; 

1880 IF sruk(papir,rund)>100 T 
HEN :PRINT " STEGET" ; 


1890 IF *ruk(papir,rund)<100 T 
HEN ;PRINT " FALDET"; 

1900 IF sruk(papir,rund)-100 T 
HEN :PRINT " UCNDRET";;GOTO 19 
40 

1910 pct=sruk(papir,rund)-100: 

IF pct<0 THEN pct—pct 

1920 PRINT " MED";pct;"PCT," 

1930 : 

1940 GOSUB 2090 
1950 PRINT FNscreen*(3,19,""); 
100 

1960 PRINT FNscreen*(12,19,"*" 
);REM Stjernen for vCrdien 

100 i runde O 
1970 FOR a=0 TO rund-1 
1980 PRINT FNscreen«14+(a*4), 
19-((*ruk(papir,runde+a)-100)/ 
2 ),"*") 

1990 NEXT 
2000 : 

2010 PRINT inv*;FNscreen*(65,3 
O,"<TRYK PD EN TAST>");iinv* 
2020 IF INKEY*“"" THEN GOTO 20 
20 

2030 runde*rund 
2040 RETURN 
2050 END 

2060 REM ********************* 
********** 

2070 REM ** Akserne tegnes 
** 

2080 REM ********************* 
********** 

2090 FOR a=l TO 60:PRINT FNsc r 

e#n*(10+a,20,CHR*(154));:NEXT 

2100 FOR a*0 TO 25 

2110 PRINT FNscreen*(10,30-a,C 

HR*(149));NEXT 

2120 RETURN 

2130 : 

2140 REM 
************ 

2150 REM 
en * 

2160 REM 
************ 

2170 PRINT FNscreen*(50,4, 
runde 

2180 FOR b-1 TO 9 

2190 IF b<6 THEN;PRINT FNscree 

n*(44,12+b,"");kurs(b);" 

M 

2200 IF b>=6 THEN:PRINT FNscre 
en*(44,15+b,"");kurs(b);" 

M 

2210 NEXT 
2220 RETURN 


************** 


* LYN-subrutin 


************** 


>; 











TIL: PC 1512 


Når folk køber en computer til hjemmet, det være 
sig en hjemmecomputer eller en PC, er det ofte 
med ordene: »Ja, sådan som tiderne er i dag, er 
det jo svært at holde styr på økonomien, men NU 
er det slut, med denne krabat«, familiefaderen 
rækker her nonchalant hånden over mod vidun¬ 
deret, »så skal jeg nok få styr på økonomien, og så 
er det jo også et nødvendigt led i børnenes udvik¬ 
ling i dag«. Familiefaderen klapper junior på hove¬ 
det som er travlt optaget af »Space Invaders«. Når 
man så næste gang spørger til computeren, er den 
enten pakket væk eller også har junior helt overta¬ 
get styringen. 

Sådan som situationen er skildret ovenfor, går 
det desværre i mange tilfælde, og hvorfor gør det 
så det? 

Jo, i den mellemliggende periode har familie¬ 
overhovedet sikkert siddet mange nætter og 
kæmpet en brav kamp for at skrive et økonomi¬ 
program, men det er som om det ikke rigtigt vil lyk¬ 
kes, og hvis ikke tålmodigheden er for stor, er 


chancen for, at det ender som ovenfor, overhæn¬ 
gende stor. 

For at hjælpe lidt på situationen har vi bestemt 
os for at bringe et mini regnskabs-program til 
PC1512'eren. 

Programmet indholder 10 konti, 2 indtægts¬ 
konti (0,1), 7 udgiftskonti (2,8) og en bankkonto 
(9). På hver af disse konti kan der posteres 250 
posteringer. En postering indeholder både dato, 
en tekst og selvfølgelig beløbet. 

Derudover kan man så få udskrevet et konto¬ 
udtog og en statusopgørelse. 

Når programmet kører, oprettes der to filer på 
disketten, »kontofil.dat«, der indeholder alle kon¬ 
tonavnene og »data.dat«, der indeholder alle 
posteringerne. 

Programmet kan selvfølgelig udbygges efter 
behov, og det kan rettes til efter eget ønske. Det er 
blot ment som en igangsætter til alle dem, der er 
kørt fast på et tidligt stadium. 


1 

2 

3 


100 CLEAR: a$="PC1512 Privat-t 

egnskab VI.00 Amtrad Bladet 
1987“ 

110 CLS:CLOSE #3,#2,#1 
120 CLOSE WINDOW 3 
130 CLOSE WINDOW 4 
140 OPEN #1 WINDOW 
150 OPEN #2 WINDOW 
160 OPEN #3 WINDOW 
170 SCREEN #1 TEXT FLEXIBLE: W -4- 
INDOW #1 FULL ON 
180 WINDOW #1 TITLE aS 
190 CLS 

200 SCREEN #2 GRAPHICS: WINDOW - . 
#2 FULL ON 

210 SET #2 FONT 2 POINTS 18 
220 WINDOW #2 TITLE a$ 

230 WINDOW #2 OPEN 
240 MOVE #2, ;YPOS(#2)—100 
250 PRINT #2 

260 PBiWf #2, <12)j 


PRIVAT-REGNSKAB" 

270 PRINT #2, COLOUR (12); " 


a-f 


280 PRINT #2, COLOUR (12); " 


Amstrad Bladet" 

290 PRINT #2 

300 PRINT #2, COLOUR (13); " 


Tryk en tast" 

310 tast*=INKEY*: IF tast*="" 
THEN 310 

320 REM *** HOVED-MENU *** 

330 CLS #2 

340 WINDOW #1 OPEN 

350 CLS 

360 PRINT :PRINT :PRINT 
370 PRINT " 

HOVEDMENU" 
380 PRINT " 
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390 

PRINT 

: PRINT 

400 

PRINT 

•• 

(P)ostering" 

410 

PRINT 

II 

(S)tatus" 

420 

PRINT 

II 

(K)ontoudtog" 

430 

PRINT 

II 

(N)ye kontonavne" 

440 

PRINT 

II 

(H)ent data" 

450 

PRINT 

II 

(G)em data" 

460 

PRINT 

II 

(A)fslut program" 



tonavnl(x) 

620 NEXT x 
630 PRINT 
640 INPUT " 

Hvilken kon 

to "5 nr 

650 CLSiPRINT:PRINT 
660 t(nr)=t(nr )+1 


670 INPUT "Dato.konto 

*(nr,t(nr), 0 ) 

680 INPUT "Tekst."} konto 

*(nr,t(nr) , 1 ) 


690 INPUT “Belkonto* (nr , 
t(nr), 2 ) 

700 PRINT 

710 PRINT "Flere posteringer J 
/N) " 

720 svar*=INKEY*: IF svar*=>"" T 
HEN 720 

730 IF UPPER*(svar*)="J" THEN 
560 

740 GOTO 320 

750 REM **** ndring a-f kontona 
vne **** 

760 CLS 

770 PRINT:PRINT:PRINT 
780 PRINT " 

ndring a-f kontonav 

ne" 

790 PRINT " 


800 FOR x-0 TO 9 
810 PRINT " 

"; x}" "{kontonavn* 
(x) 

820 NEXT x 
830 PRINT 
840 INPUT " 


470 svar*=UPPER* 
vart="" THEN 470 
480 IF svar*="P" 
490 IF svar*="S" 
500 IF svar*="K" 
510 IF svar$="N" 
520 IF svar*="H" 
530 IF svar*="B" 
540 IF svar$="A" 
550 GOTO 470 
560 CLS 

570 PRINX:PRINT: 
580 PRINT " 

N G" 

590 PRINT " 


(INKEY*): IF 

THEN 560 
THEN 1120 
THEN 1520 
THEN 750 
THEN 970 
THEN 1370 
THEN STOP 


PRINT 

POSTER 


600 FOR x-0 TO 9 
610 PRINT " 


Hvilket nr.|n 


s 


r 

850 INPUT " 



Nyt navn." ; k 

ontonavn*(nr) 

860 kontonavn*(nr)=LEFT*(konto 

navn*(nr) + "...", 

15) 

870 PRINT 
880 PRINT " 

Flere ndringer (J 

/N> " 

890 svar*=INKEY*:IF svar*-"" T 
HEN 890 

900 IF UPPER*(svar*)="J" THEN 
750 

910 OPEN #6 OUTPUT "konto-f i l.d 
at" 

920 FOR x=0 TO 9 

930 PRINT # 6 ,kontonavn*(x) 

































































































































